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ABSTRACT 


ROBOTEYE is a vision based robot system, which can 
identify and pick up a part placed randcmly in a vision 
controlled 'workspace' and transfer it to a predetermined 
location. 


The hardware is comprised of a 6502-based 
microcomputer system, a digital canera and a 5-axis robot. 
The software operating system, written in BASIC, accesses 
machine language routines for image data acquisition, 
analysis and robot control. The image analysis routine 
calculates for a single part in the field of view, nine 
geometric paraneters which are independent of scale, 
orientation and position. The robot control subroutine can 
use this information to grasp the part and place it in a 
predetermined location. 


The system is user-friendly and is docunented and 
constructed in such a manner that it can be easily used and 
altered for particular applications in computer vision, 
robot control or the combination. 
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INTRODUCTION 


Without sensory feedback, an industrial robot cannot 
intelligently interact with its environment. For example, 
present robots require parts to be in fixed positions. 
Hence their use is precluded at workstations in many 
manufacturing activities that do not control part postition. 
Conventionally, parts are presented to the robot by means of 
autonatic feed systems and the robot assumes that each part 
is in precisely defined position. 

The cost of the fixtures and feeders to accurately 
present the parts to the robot often exceeds the cost of the 
robot itself, so a means of allowing a robot to work with 
parts which are fed in a randcm manner, would save 
significant up-front Installation costs and long term 
maintenance costs. 

Machine Vision is one of the most important area 
which can advance the state-of-the-art of industrial robots, 
as it can provide valuable information about an environment. 

This paper describes ROBOTEYE, a vision based robot 
system vAiich uses a digital Ccmera to monitor the area vAiere 
the part is dispensed. The canera locates the part and 
verifies that it is within specifications. Then the 













position and orientation coordinates are generated and 
converted into absolute robot position coordinates. The 
robot is then instructed to acquire the part and place it in 
a predetermined location. The process of gathering, 
analyzing and recognizing the object takes 3-5 seconds well 
within the cycle time of a typical robot, 

Ihe vision subsystem is designed to operate in a 
relatively known and structured envirorment. This is the 
prominent trait of an industrial vision system v^ich is 
based on a pattern recognition approach, unlike general 
vision systems vAiich are based on image understanding. 

' Industrial operations are well suited to model based 
analysis because of the well defined geometric descriptions 
associated with manufacturing items. Hence the objects were 
represented in terms of their geometric characteristic 
features such as monent of inertias, ccmpaotness ratio etc 
and the resulting feature vector was stored. This vector 
was then matched to the corressponding extracted vector 
during system operation. 

Simplicity is important in these systems as 
conputation time is limited. Since the ROBOTEYE was 
expected to operate in real time, the processing was 
restricted to binaryCblack and white) and most of the 
software was implemented in machine code. 












The purpose of the project was two fold:- 
1)To build a strong foundation to enable students to 
pursue particular projects in machine vision, robot control 
or the ccmbination. 

2) To make it suitable for production plant use. 

This paper gives an overview of ROBOTEYE followed by 
a description of hardware and software organization and a 
more detailed look at the vision, robot and monitor control 
software. Finally the limitations of the system are stated 
and the potential for future work is discussed. 














FUNCTIONAL OVERVIEW 


ROBOTEYE functions in four modes. A setup mode, an 
update mode, operational mode and a calibration mode. 

Setup mode 

In this mode it can either setup the path for the 
robot or setup the * standard feature set’ for the object. 

In setting up the path, the information is to be supplied 
in cartesian coordinates for the approach, pickup and 
departure of the robot. 

In the setup mode for the object, the part is shown to the 
canera.The ’standard feature set* is then extracted and 
stored in a data file. The final destination of the object 
should also be specified in table coordinates. 

Update mode 

In this mode, information about new parts can be 
added to the system . A procedure similar 'to the ’Setup 
mode’ is followed. The part is shown to the camera and the 
’Standard Feature Set’ and the destination of the object 


aided to the data file. 





Operational mode 


Image data acquition and analysis is carried out for 
the object despensed on the workspace. The feature set is 
extracted and canpared to the standard feature set’in order 
to recognize the object. Position, orientation and the 
final destination information is sent to the robot. The 
robotarra finds the part on the workspace, picks it up and 
transfers it to its corressponding final location. Placing 
of the part on the workspace is the only manual intervention 
otherwise the above sequence can be operated continuously. 

Calibration mode 

ROBOTEYE must be calibrated when it is first setup 
or whenever the robot or the canera or the workspace is 
moved. 


In this mode,the object is shown to the camera 
at two different locations on the table and their cartesian 
coordinates specified. It then works out the 
transformations from the vision fnane to the robot frane. 
The calibration is simple and requires very little time. 







SYSTEM OVERVIEW 


Organization 

ROBOTEYE is logically partitioned into independent 
vision, robot and monitor modules implemented on a single 
microconputer* Although ROBOTEYE was implemented on a 
single computer, communication between subsystems was 
designed to allow easy substitution of new vision modules or 
new robots. For exanple, the robot could be controlled by 
a microprocessor independently without any major change in 
the organisation of the ROBOTEYE. 

This particular vision subsystem reports the center 
of the projected area and a direction along the axis of 
maximum moment of inertia. Other vision modules may report 
altogether a different point and orientation. This can be 
changed in the ROBOTEYE without changing the control 
progran. 

More importantly, the workspace area can be increased 
or decreased by changing the exposure of the camera or its 
distance from the workspace. The required transformations 
can be obtained by using the calibration mode. This is 
possible because the standard feature set is independent of 
scale, orientation and position of the object. 







Hardware 


The hardware for the experimental version of 
ROBOTEYE as described in this paper is shown in Figure:!. 
The computer used is APPLE He. The canera is a digital 
canera made by MICRON TECHNOLOGY INC. The robot is a 5-axis 
MiniM3ver-5 made by FEEDBACK INCORPORATED. 

Software 

The software organisation for ROBOTEYE can be 
divided into three independent channels. 

Ihe monitor channel is responsible for controlling and 
coordinating the op>eration of the ROBOTEYE and assisting in 
calibration and programnsning of new parts. 

The vision subsystem identifies the object in its 
Afield of view* and reports its position and orientation 
with reference to its frame. The monitor module performs 
the required transformations to the robot frame "of 
reference. The control software at present permits only one 
object to be within the * field of view* of the camera. 

The vision subsystem employs just one 256x128 pixel 
array. The image formed is compressed into 256x64 dots 
vrfiich are displayed on the high resolution graphics screen 
of the APPLE lie. This is achieved by reading information 
only fron alternate pixels. The software takes care of 
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controlling the exposure of the lens. 


The vision subsystem performs four main functions. 
Dmage acquisition, position detction, orientation detection 
and recc^nition. 

The robot subsystem executes a previously * taught’ 
program to transfer the object frcm the workspace to a 
predetermined location. But it can accept information from 
the monitor module concerning the object’s position, 
orientation and destination. It uses this data to ’update’ 
the previosly ’taught* program and thus carry out its 
required function of transferring the part. 














VISION SUBSYSTEM 


The vision subsystem recognizes parts vathin its 
* field of view* and reports their position and orientation 
to the monitor« 

Hardware 

The system consists of a digital image camera vhich 
is linked to the computer by the TTL level RS-232 interface. 
The IS 32 Optic RAM is the heart of this canera. This IS32 
is a memory chip specially packaged to function as a digital 
image sensing device. This IS32 contains 65,536(64K) light 
sensitive memory cells laid out in two planer rectangular 
arrays of 32,768 elements, each a matrix of 128 rows and 256 
colunns. The two arrays are separated by an optically 
nonsensitive*dead* zone of about 25 elements wide. To avoid 
having a gap in the image or using complicated optical 
systems to eliminate it, only one of the arrays was used as 
an Image sensor. Each of the manory elements in the matrix 
can be accessed randomly by simply reading in the 
appropriate row and colunn address. The Optic RAM and the 
dimensions of its photosensitive array are depicted in 
Figure; 2a and 2b. 














figure :2a The IS32 Cptic RAM Chip 



ENLARGEMENT OF DETAIL 


figure :2b Dimensions of the IS32 Optic RAM 


































Theory of Operation 


An image 03 ^ 10^3 built around the IS32 focuses 
reflected light fron the viewed object and passes in through 
a lens onto one of the 32,768 elements array. When an 
individual element is struck by photons of light, the 
capacitor in the cell, which is initially precharged to a 
fixed voltage, begins to discharge towards zero volts. The 
capacitor discharges at a rate proportional to the light 
intensity throughout the duration of the exposure. 

After the exposure interval has elapsed, the 
circuitry reads the element by addressing it as a memory 
cell. During the cell access, sense amplifiers within the 
IS 32 read the capacitor’s voltage value and compare it to a 
fixed threshold value. If the potential is above the 
threshold, the picture element is deemed to be black, if the 
potential is lower, than the picture element is declared 
white. The Dout pin of the Optic RAM is set to a logic 1 or 
0 during the corressponding bit interval as a result of this 
decision 

If each of these memory locations is taken and 
displayed on the computer’s high resolution graphics screen 
in the same configuration, found on the surface of the Optic 
RAM(using a white dot to represent a 1 and a black dot to 
represent a 0), one will have a picture of the image focused 
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on the chip. 

All dynanic devices require refreshing for operation. 
In the beginning of an image sensing cycle RS 232 circuitry 
addresses all the cells in the active array, filling them 
with positive voltages that represent logic Is. The 
exposure b^ins with the receipt of a ccnmand fron the 
software, which is equivalent to opening of a Gutter. 
Thoi, after the appropriate exposure interval has elapsed, 
the control circuitry issues the refresh command, which 
fVeezes the state of the manory cells. Then the control 
circuitry activates the internet state, during which the 
values from these cells is transmitted. After all the bits 
in the array have been transmitted, then the RS-232 causes 
all the cells to be set to 1 ^ain and the image sensing 
cycle starts over. 

How fast the canera can scan the im^e varies 
according to the light intensity. The faster the elements 
are scanned, greater the light intensity required. At 
maximuti apeed(clock frequency 153, 600H2),it. can scan 15 
frames a second. 

The Interface 

The RS-232 forms the interface to the expansion bus 
of the APPLE lie. It owes its simplicity to the predecoding 
of the I/0(input-output) slot address already provided on 


















the APPLE’S main circuit board. The transceiver buffers the 
TTL(Transistor-Transistor Logic) level serial data into and 
out of the MC6850 ACIA(Asynchronous Communication Interface 
Adapter). The serial bit rate is controlled by the external 
clock output from the drive elctronics. 

The 6850 ACIA conprises a data register and a status 
register. Oie can configure operating parameters (such as 
parity, stop bits, start bits, clocking etc.) by writing 
values into the status register. Before the host ccmputer 
can access the link, the ACIA has to be initialised to the 
proper configuration. The control software does this by 
writing two bytes, a hexadecimal 03 followed by a 
hexadecimal 14, into the status register. Reading the 
status register allows the control progran to determine when 
new data has been received and viien ACIA is ready to send 
data. 


In the APPLE He, the hexadecimal adddresses of the 
type COnE access the status register of the ACIA on an 
interface card plugged into the corressponding slot, idiile 
COnF accesses the ACIA data register. The n is the 
hexadecimal value of the slot nunber plus 8. For exanple, 
suppose the interface card was plugged into slot 4, 4+8 
equals C, so address COCE will access the status register 
and COCF the data roister. 




















Software 


This is very vital part of the system because real 
time commands can be given to the camera, which will control 
the operating modes of the camera. The software developed 
deals with 

(1) Image Acquisition. 

(2) Position Detection 

(3) Orientation Detection 

(4) Recognition 

The software consists basically of two parts; a short 
BASIC main program and a set of machine language 
subroutines. The basic prograu loads the machine language 
code from the DISK, interactively sets the correct I/O, slot 
nunber and exposure time and calls the machine language 
subroutines to display, freeze and process the image. 

Ihe machine language results are stored in specific 
memory locations of the computer , which can be accessed . in 
BASIC to verify and make decisions accordingly. 

image Acquisition. 

The BASIC subroutine calls the machine language 
routine to display the image. The machine code makes sure 
that high resolution graphics is being displayed. It then 
initializes the ACIA and sends a command which clears the 












Optic RAM and tells the camera to begin the exposure. The 
progran then waits for the duration of the exposure, which 
again cm be controlled by the software. 

The next step is to read the image frcm the camera 
and display it on the high resolution graphics screen. To 
save time and memory, the software sends the picture 
straight to high resolution graphics monory rather than 
reading into a separate buffer. The software selects the 
alternate pixel with 7-bit data words to display 128 X 256 
array on 64 X 256 dots of the high resolution screen. 

Before any part of the picture is received, a number 
of memory pointers are set up to facilitate proper 
ccmmunication. A command is sent to the canera to begin 
transmitting the image and the progran loops back to read in 
each byte of the image and place it on the screen. The 
control software knows how many bytes of image data it 
should receive fVom the canera. 

As the APPLETS high resolution screen is mapped 
non-linearly into memory space, a lengthy table in machine 
code provides the starting address for each consecutive row 
of the high resolution screen. The progran gets the address 
of the beginning of each row and then reads the required 
nunber of bytes from the canera, placing them consecutively 
on the screen. 




















Onoe the image is on the screen, a cctnmand is send to 
the canera to refresh without sending. This gets it ready 
for the next exposure. Finally the software can also 
control the nunber of times you want to refresh the image 
before terminating this subroutine and freezing the final 
image in the high resolution graphics monory. For more 
details refer to Appendix-A. 

Position Detection 

The position of the image is specified with 
reference to the high resolution screen coordinates. The 
BASIC progran calls the machine language subroutine vAiich 
scans the monory where the image data was stored to 
calculate the centroid of the image. The centroid is 
expressed in (x,y), where x represents a particular row and 
y represents a particular colunn. Refer to Appendix-B for 
further details. 

Orientation Detection 

The machine language subroutine scans the image data 
and calculates the Products of Inertia and the Principle 
Moments of Inertia, and returns the control to the BASIC, 
vrfiere the orientation of the major axis is determined with 
respect to a row on the screen. This is only one way to 
determine the orientation. But orientation with respect to 
a colunn or with respect to a minor axis can also be 
















determined by changing just the BASIC program. (Refer to 
Appendix-C) 

Recognition 

The software was developed so that ROBOTEYE can 
recognize parts regardless of scale, position or 
orientation. 

The machine language can process the image very fast 
and calculate up to the third moments of inertia, detemine 
the perimeter and area of the image. Once the control is 
returned to BASIC, the independence of scale is accomplished 
by scaling these moments with respect to the area. Then it 
uses a set of geometric relationships to obtain nine 
paraneters independent of scale, position and 
orientation(refer to appendix-D), 

Ihus the software refines and reduces the image data 
to basic characteristics called as the 'Feature Set' needed 
to evaluate and identify the original object. The 'Feature 
Set' is then compared with a reference 'Standard Set' 
stored in the system. 




























ROBOT SUBSYSTEM 


The robot subsystem is conprised of a MiniMDver-5 
manipulator, a five jointed mechanical arm, which is driven 
by digital commands from the APPLE lie. 

Physical Characteristics 

The major structural components are shown in Figure: 
3 . The manipulator consists of a fixed base within vrfiich is 
housed the computer interface card. From the rear of the 
base extends the interface cable and the D.C power cord. 
The body swivels relative to the base on a hollow shaft 
which is attached to the base. This is known as the base 
joint. Six stepper motors with their corressponding gear 
reductions, are mounted on the body and control each of the 
joints. 


At the upper end of the body is attached the upper 
arm. The upper arm rotates relative to the body on a shaft. 
This is known as the shoulder joint. Similarly, the forearm 
is attached to the upper arm by another shaft. This is 
known as the elbow joint. Finally the gripper(hand) is 
attached to the forearm at the wrist joint. 


The end of the hand can be positioned anyvdiere within 

























































a partial sphere i^ich has a radius of 17,5 inches as shown 
in Figure: 4. The maxiniLm speed of the robot is limited to 
2 to 6 inches per second, depending upon the weight of the 
object being handled. The MiniMover-5* s hand has a maximun 
opening of 3 inches. the 2-bar linkages maintain the 
fingers parallel during the opening and closing. A builtin 
sensor permits adaptive control so that a presence of a 
object may be detected. 

Software 

Robot programming languages are generally classified 
by non-textual programning and textual prograiming methods. 
In non-textual programming, the robot motions are taught by 
the user using the teach pendant, and each move is recorded 
in the memory for ready playb^k. For this reason 
non-textual prograraning is also referred to as * teaching by 
lowing' , Ihe main problem with this mode of programming is 
that it is difficult and sometimes impossible to incorporate 
sensory information if the sensory data are not available 
until actual robot motion. Hence to ronedy this defiencyi 
the textual mode of programming is essential. The 
MiniMover-5 can be programmed into two levels of textual 
raode:- 

(1) Joint level 

(2) Manipulator level 



























































Joint Level Languages 


In joint level programmming, the required manipulator 
motion to acconplish a task is specified by a sequence of 
joint motion movements. “Ihe instructions are of the 
following type:- 
STEP J1,J2,J3,J4,J5,J6,D 

where J1,J2.J6 represent joint angles. The sign of 

each nunber indicates the direction each motor should be 
driven. The magnitude indicates the nunber of steps. The 
nunbers J1 to J6 with the directions for the positive 
nunbers are as follows 
J1: Base swivel - clockwise 
J2: Shoulder bend - downwards 
J3: Elbow bend - upwards 
J4: Right wrist - upwards 
J5: Left wrist - upwards 
J6: Hand open 

The J4,J5 and J6 are also called as the *Roll, Pitch and 
Yaw* movements. The speed is determined by D. 

This type of progranming is undesirable because the 
coordinates natural to the hunan are cartesian, cylindreical 
or spherical. This transformation can be accomplished by 
the manipulator level languages. 
















Manipulator Level Languages 


Manipulator level progranming allows the user to 
progran a task in terms of sequence of robot motions 
represented by the end effector(gripper) locations. The 
motion statements programmed by the user are of the 
following type:- 
STEP X,Y,Z,L1,L2,L3,D 

where X,Y,Z represent the position of the end effector and 
L1,L2,L3 represent the orientationCroll, pitch and yaw), all 
with respect to global coordinates. 

The ROBOTEYE software can compute the transformations 
from cartesian to joint coordinates by solving the kinematic 
equations for the MiniMover-5. 

Initialisation Requir^ients 

Before a program is executed, the arm should be 
moved to a known initial *H0ME* position. This is necessary 
in order to match the position of the joints to the position 
assuned by the program. It is not necessary to initialize 
everytime because the robotarm is made to return to the 
*H0ME* position after the ccrapletion of the cycle in the 
ROBCTEYE. Hence initialition of the *HOME* position is 
required only if the system is moved or interrupted. 

































Operation 


The robot jTogranming subsystem is implonented as two 
independent tasks. One task is required for robot progran 
development. The second deals with the execution. 

Development Mode 


In this mode the robot is taught the path. The 
approach, pickup and departure information is supplied in 
terms of X, Y and Z coordinates of the table. This 
information can be different for different objects. 

Execution Mode 

In this mode the robot will follow the same path 
which was previously taught, for that particular object. 
I can accept information concerning the object, its 
location, orientation and destination fron the vision sub¬ 
system and use it to 'update* its assigned path. This 
information is provided by the monitor module, which trans¬ 
forms the screen coordinates into actual cartesian coord¬ 
inates. The flow-chart in Figure: 5 depicts the function 
of robot subsystem in the execution mode. 

Thus the robot subsystem software along with the 
monitor modules helps to keep track of the operating 








































































envelope of the MiniMDver-5. If the monitor module makes an 
unconventional request to reach a point behond the scope of 
the arm, the progran will terminate and return the robot to 
the ’HCME* position. Hence all these means in the robot 
subsystem provide practically all the capabilities to the 
ROBOTEYE without spending a major effort in developing a 
powerful robot language. 



































SYSTEM MONITOR 


The monitor coordinates the operation of the vision 
and the robot subsystems, while calibration and part 
programming as well as during the operational phase. As 
stated earlier, calibration is required during initial setup 
or vAienever the camera or the robot or the workspace is 
moved. Part progranming is required only during the initial 
setup and v^enever ROBOTEYE is modified to handle a new 
part. 

Calibration 

In ROBOTEYE, the part position determined by the 
vision subsystem defines the position and orientation 
relative to the screen fhane. The approach, pickup and 
departure are all programed with respect to the table 
fhame. Hence, calibration is the process v^iereby the 
relationship between the screen coordinatesCVision 
coordinate system) and the table coordinatesCRobot 
coordinate system) is determined. 

In this mode the object should be viewed by the 
camera at two different locations on the table. The table 
coordinates, where the object vras placed should also be 
specified. The monitor system can then compute the 



























relationship between the vision and robot frames and store 
it into a data file. Determining the coordinate 
transformation completes the calibration. 

Operational Phase 

In this phase the monitor controls and coordinates 
the operation of the ROBOTEYE. The three important 
functions it carries out are:- 

(1) It acquires the ’Feature Set’ from the vision sub¬ 
system and compares it with the ’Standard Feature Set* 
in order to identify the object. 

(2) It transforms the screen coordinates of the position 
and orientation of the object to the table fhane 
of reference. 

(3) It converts the path of the robot from cartesian 

coordinates into nunber of motor steps. It feeds 

this information to the robot subsystem for execution. 

Figure: 6 illustrates the overall logic of monitor. 
Although the logic is straightforward, the monitor deals 
with two rather subtle problems. 

The first involves modification of the orientation of 
the gripper. The robot has limited range of motion in all 
its joints. The gripper has limited orientation. Since 
this gripper is syrnnetric about 180 degrees, the monitor can 
effectively achieve the same orientation by rotating through 























DISPIAY MAIN MENU 
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1 AQUIRE PART DATA 
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1 COMPARE IT WITH THE STANDARD VECTOR 
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TRANSFORM POSITION FROM VISION TO ROBOT FRAME 





SEND APPROACH,PICKUP AND PUIDOWN POSITION TO ROBOT 



Overview of Operational Phase of System Monitor. 







































the anallest angle fbr a particular pickup position. 

Error recovery is the second problem. As mentioned 
earlier, the possibilities of parts out of reach, 
impossible robot positions etc. increase significantly when 
the robot*s path is being changed for every cycle. Errors 
detected by either the vision or robot subsystem are 
reported to the monitor, Ihe monitor then takes action, by 
returning the robot to the *HOME* position and returning the 
control to the main menu. 
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LIMITATIONS OF ROBOTEYE 


The system described above is capable of only binary 
level processing. Although more information about the 
object can be extracted by gray level processing, the 
ccmputation time involved will be much more, and hence only 
* black and vrfiite* type of analysis was used. As a result, 
processing of the image could be done only for geometric 
analysis in 2-D plane. It cannot be utilized for analysis 
of objects which require that surface characteristics be 
quantified. 

The ROBCTEYE, after acquiring the image does not 
carry out any filtering as it assunes that the operation 
will be in a relatively known and structured envirormoit. 
Thus any noise in the image will lead to wrong 
interpretations. Therefore the contrast of the object 
against its backgrx^und should be greater thm the local 
lighting variations around the feature of interest. Usually 
lighting variations are caused by point light sources or by 
inteferences from ambient light. Hence some kind of 
structured lighting is essential. But the vision subsystem 
does not require any complicated lighting arrangements or 
other impractical ways of enhancing contrast. 


The workspace is controlled by the exposure of the 






























canera and its distance fVom the workspace. Ihus the size 
of the object which can be processed by the system is 
limited by the ’field of view’. 

Ihe calibration procedure requires the plane of the 
canera to be parallel to the workspace in order to ccmpute 
the correct transformations. 

The ROBOTEYE can process only one object at a time 
and moreover the object should be fnee frcm discontinuities. 

The precision of the system is limited by the 
accuracy of the transformation of the vision subsystem to 
robot subsystem coordinates and by the precision of the 
robot movements. 
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FUTURE WORK 


ROBCfTEYE is now a strong foundation for developnent 
of many educational and practical applications in ccmputer 
vision or robot control. 

Some of the projects vhich can be further developed are 

1) Dnage processing can be extended to analyse more than 
one object in its field of view, This can be easily 
implemented by undergoing minor changes in the ^row* 
and * column* machine language routines. 

2) More information about the object can be extracted if 
the object is viewed from two different angles. Ihis 
would require an additional digital canera. The basic 
processing of the image can be done by using the same 
control program. Further development can be achieved 
by deriving a relation^ip between the ’Feature Sets* 
which were extracted fron two different views. 

3) Prograns could be developed to break up a ccmplex image 
into two or three different blobs (groups of connected 
pixels in a binary image). Then each blob can be 
processed independently for a ’Feature Set* using the 
ROBOTEYE control software. This development will enable 
the system to process ccmplex objects, 

4) The present vision subsystem can be tested taider diff¬ 
erent types of structured lighting. This could result 
in a lighting arrangement, which is simple yet produces 





























a resonable contrast with minimim noise and rainimun dis¬ 
tortion of the image. 

5) The possibility of distributing the vision subsystem and 
the robot subsystem functions among different computers 
should be pursued. This would not only decrease the 
cycle time but would also allow the user to process the 
image fbr more parameters in real time. 

6) Positions to which the robot moves can be programed in 
non-textual languages when in thB development mode and 
then a reverse transformation to obtain the cartesian 
coordinates can be acccmpli^ed. This vrauld enhance the 
accuracy while calibration,as the object can be shown to 
the vision subsystem and instead of specifying the 
coordinates the user can manually move the robot to the 
object’s position. The software can then obtain the 
conversion frcm the joints to cartesian coordinates. 

Some advanced level progranming subroutines that can 
be developed on this systan are: 

1) To generate a gray scale level. This would aid complex 
part recognition or for the analysis of surface 
characteristics. This technique of processing has a 
lot of potential for handling scenes with clustered 
backgrouid and uicontrolled lighting. 

2) Software to develop a Fast Fourier Transform of the 
im^e can be developed, which would give more than 
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enough information to recognize an object. 

3) Task level programming, as an attempt to develop a robot 
language, should be pursued. Here the user specifies 
the task in terms of statements describing object mani¬ 
pulation, not robot motion. The task level program¬ 
ming is very attractive in the programmer's point of 
view; instructions are easy to read and write. This is 
particularly important to manufacturing environment 
since most machine operators do not have programming 
experience. 

Practical Applications 

ROBOTEYE could be further developed to pick up parts 
from a moving conveyor belt. This would require a few 
additions to the main progran. The conveyor belt could be 
halted under the camera station vdiere it will serve as the 
wDrkspace. Once the image is acquired, the belt could be 
moved again and by the time it reaches the robot station the 
image should be processed. The position and orientation 
information should be supplied to the robot subsystsrj and 
the robot can track the part on the conveyor and pick it up. 

The addition to the systen would be to instrument the 
belt with a position and speed detection device, and workout 
appropriate translation transformations in the calibration 
mode. Once the system is setup, it can be used for sorting 
of parts or for transferring of parts. This sequence can 






























operate continuously without manual intervention except for 
placing of parts on the conveyor. 

With all these developmoits, the system will not be 
far from being compatible to find applications in the 
industry. 
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APPENDIX-A 


This appendix deals with ’Image Acquition’. Machine 
language subroutine *CAMASM’ loads the high resolution graphics 
screen with the picture of the object and freezes it in the high 
resolution graphics memory, 

A brief description of this program, along with a flow 
chart,memory map and program listing is given. 



























ASSEMBLY ROUTINE”CAMASM” 


ii2 


This is a machine language routine which allows input from 
the camera to be displayed in High Resolution Graphics Page 2, 
Some of the important subroutines of this program are: 

1) JSR 8108 » 

* This subroutine checks for the slot nunber in 

* memory location $303 and accordingly takes input 

' * from the camera 

2) JSR 811A » 

* This subroutine clears the High Resolution 

* Graphics Page 2. 

3) JSR 8132 » 

* Sets the soft switches to display the High 
^ Resolution Graphics Page 2. 

4) JSR 813F » 

* Takes the input from the camera and converts it 

* into an ON or OFF bit and stores that 

* information in the HGR2 memory 

5) JSR 8153 » 

* Loads the exposure time into memory 

** location $301 (MSB) and $302(LSB) and then goes 

* through JSR 8177 until exposure time is reached, 

6) JSR 8177 * 

* Delay loop which exposes the camera to the object 

* for 0 to 255 counts for each increment 

* of exposure time 






























^3 


MEMORY MAP 

$300 * Stores the decimal coramand(CTI), CM is a function of 

* no4 of pixels,pixel width and no. of arrays used. 

$301 * Stores the MSB of Exposure Time. 

$302 * Stores the LSB of Exposure Time 

$303 * (Slot # of the canera)*l6 

$304 * Stores the input Key Board for exit 

$305 * Stores input from Key Board to control the Microneye. 

$306 ^ LSB to store the light level. 

$307 ^ MSB to store the light level, 

$308 * Nunber of bytes that are required in a row. ' 

$309 * 'MSB of no. of rows to be used, 

$30A of no. of rows to be used. 0 / 

$30B * Counter for no. of scans of the canera, 

$30C * Nunber of bytes to be used in a row. 

$8^§- * Stores the first memory location of every row of the 

^ HGR Page as the memory is not organised, 

$C000 * Allows input from the Key Board even vdiile executing, 

$C0C0- * Input fron slot 4 ,if the canera is located there. 

$4000- ** High Resolution Graphics memory 

$8400 * Only way to get out of the canera mode with the image 

* still loaded in HGR2 memory. It comes out of the 

* canera mode vriien the value is equal to 5. 
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8000- 

8003- 

8006- 

8009- 

8000- 

800F- 

8012- 

8014- 

80'^7- 

801A- 

801D- 

8020- 

8023- 

8025- 

8028- 

802A- 

802D- 

8030 - 

8032 - 

8035- 

8037- 

8039- 

8030 - 

803F- 

8042- 

8044- 

8046- 

8048- 

804B- 

804E- 

8050- 

8053- 

8055- 

8058- 

805B- 

805E- 

8060- 

8063- 

8065- 

8066- 
8069- 
806B- 
8060- 
806E- 
8071- 

8074- 

8075- 
8077- 
8079- 


PROGRAM LISTING OF OAMASM 


40 

OF 80 

JMP 

$800F 

* 

40 

E9 81 

JMP 

$81E9 


40 

81 81 

JMP 

$8181 


40 

AF 81 

JMP 

$81AF 


40 

IF 81 

JMP 

$8 IDF 


AD 

2A 82 

LDA 

$822A 


FO 

06 

BEQ 

$801A 


OE 

2A' 82 

DEO 

$822A 


20 

1A 81 

JSR 

$811A 


20 

32 81 

JSR 

$8132 


20 

08 81 

JSR 

$8108 

II 

EE 

00 84 

INO 

$8400 

« 

A9 

05 

LDA 

ms 


OD 

00 84 

OMP 

$8400 


DO 

03 

BNE 

$802D 

« 

40 

01 81 

JMP 

$8101 


AD 

OB 03 

LDA 

$030B 

« 

FO 

16 

BEQ 

$8048 

« 

AD 

00 03 

LDA 

$0300 

» 

09 

13 

ORA 

#$13 

« 

85 

10 

STA 

$10 

f 

20 

3F 81 

JSR 

$813F 

If 

20 

53 81 

JSR 

$8153 

« 

AD 

00 03 

LDA 

$0300 

* 

29 

FO 

AND 

#$F0 

« 

85 

10 

STA 

$10' 

» 

DO 

08 

BNE 

$8050 

» 

20 

53 81 

JSR 

$8153 

# 

AD 

00 03 

LDA 

$0300 

» 

85 

10 

STA 

$10 

ft 

20 

3F 81 

JSR 

$813F 

ft 

A2 

00 

LDX 

#$00 

ft 

8 E 

06 03 

STX 

$0306 

ft 

8 E 

07 03 

STX 

$0307 

ft 

8 E 

10 82 

STX 

$8210 

ft 

AO 

00 

LDY 

#$00 

ft 

BD 

2B 82 

LDA 

$822B,X 

ft 

85 

06 

STA 

$06 

ft 

E8 


INX 


ft 

BD 

2B 82 

LDA 

$822B,X 

ft 

85 

07 

STA 

^7 

ft 

E8 


INX 


ft 

84 

IB 

STY 

$1B 

ft 

AO 

03 03 

LDY 

$0303 

ft 

B9 

8 E 00 

LDA 

$C08E.Y 

ft 

4A 


LSR 

ft 

BO 

21 

BOS 

$8098 

ft 

A9 

00 

LDA 

#$00 

ft 

85 

19 

STA 

$19 

ft 


\ 
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807B- 

A9 

15 


LDA 

ms 


807D- 

85 

1A 


STA 

$1A 


807F- 

C6 

19 


DEC 

$19 


8081- 

DO 

OF 


BNE 

$8092 


8083- 

C6 

1A 


DEC 

$1A 

» 

8085- 

DO 

OB 


BNE 

$8092 

« 

8087- 

AD 

30 

CO 

LDA 

$C030 


808A- 

AD 

00 

CO 

LDA 

$C000 


808D- 

30 

47 


mi 

$80D6 

« 

808F- 

4C 

ID 

80 

JMP 

$801D 


8092- 

B9 

8 E 

CO 

LDA 

$C08E,Y 


8095- 

4A 



LSR 


8096- 

90 

E7 


BCC 

$807F 


8098- 

B9 

8 F 

CO 

LDA 

$C08F,Y 

II 

809B- 

A4 

IB 


LDY 

$1B 

ft 

809D- 

4A 



LSR 


ft 

809E- 

90 

08 


BCC 

$80A8 

ft 

80A0- 

EE 

06 

03 

INC 

$0306 

ft 

80A3- 

DO 

03 


BNE 

$80A8 

ft 

80A5- 

EE 

07 

03 

INC 

$0307 

ft 

80A8- 

2A 



ROL 


ft 

80A9- 

CO 

28 


CPY 

#$28 

ft 

80AB- 

BO 

02 


BCS 

$80AF. 

ft 

80AD- 

91 

06 


STA 

($06),Y 

ft 

80AF- 

C8 



INY 

ft 

80B0- 

CC 

08 

03 

CPY 

$0308 

ft 

80B3- 

DO 

B7 


BNE 

$806C 

ft 

80B5- 

EC 

09 

03 

CPX 

$Q309 

ft 

80B8- 

DO 

A4 


BNE 

$805E 

ft 

80BA- 

EO 

00 


CPX 

#$00 

ft 

80BC- 

DO 

OB 


BNE 

$80C9 

ft 

80BE- 

EE 

1C 

82 

INC 

$821C 

ft 

80C1- 

AD 

1C 

82 

LDA 

$821C 

ft 

80C4- 

CD 

OA 

03 

CMP 

$030A' 

ft 

80C7- 

DO 

95 


BNE 

$805E 

ft 

80C9- 

AD 

OB 

03 

LDA 

$030B 

ft 

80CC- 

DO 

08 


BNE 

$80D6 

ft 

80CE- 

AD 

00 

CO 

LDA 

$C000 

ft 

80D1- 

30 

03 


BMI 

$80D6 

ft 

80D3- 

4C 

ID 

80 

JMP 

$801D 

ft 

80D6- 

AD 

00 

03. 

LDA 

$0300 

ft 

80D9- 

29 

FC 


AND 

#$FC 

ft 

80DB- 

09 

11 


ORA 

#$11 

ft 

80DD- 

85 

1C 


STA 

$1C 

ft 

80DF- 

20 

3F 

81 

JSR 

$813F 

ft 

80E2- 

A9 

20 


LDA 

#$20 

ft 

80E4- 

8 D 

05 

03 

STA 

$0305 

ft 

80E7- 

A9 

00 


LDA 

#$00 

ft 

80E9- 

8 D 

04 

03 

STA 

$0304 

ft 

80EC- 

AD 

00 

CO 

LDA 

$C000 

ft 

80 EF- 

10 

16 


BPL 

$8107 

ft 

80F1- 

2C 

10 

CO 

BIT 

$C010 

ft 
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80F4- EE 04 03 

80F7- 8D 05 03 

SOFA- C9 D1 

80FC- DO 09 

80FE- 20 OD 81 

8101- AD 51 CO 

8104- AD 54 CO 

8107- 60 

8108- A9 03 

81OA- 84 IB 

81OC- AC 03 03 

81OF- 99 8E CO 

8112- A9 14 

8114- 99 8E CO 

8117- A4 IB 

8119- 60 

811A- A2 00 

811C- AO 00 

81 IE- 84 06 

8120- A9 40 

8122- 85 07 

8124- 8A 

8125- 91 06 

8127- C8 

8128- DO FB 

812A- E6 07 

812C- E8 

812D- EO 20 

812F- DO F4 

8131- 60 

8132- AD 53 CO 

8135- AD 57 CO 

8138- AD 55 CO 

813B- AD 50 CO 

813E- 60 

813F- 84 IB 

8141- AC 03 03 

8144- B9 8E CO 

8147- 29 02 

8149- FO F9 

814B- A5 1C 

814D- 99 8F CO 

8150- A4 IB 

8152- 60 

8153- AD 02 03 

8156- 85 1A 

8158- E6 1A 

815A- AD 01 03 

815D- 85 19 

815F- E6 19 

8161- AD 01 03 

8164- DO 05 


INC 

$0304 

ft 

STA 

$0305 

ft 

CMP 

}?$D1 

ft 

BNE 

$8107 

ft 

JSR 

$810D 

ft 

LDA 

$C051 

ft 

LDA 

$C054 

ft 

RTS 


ft 

LDA 

#$03 

ft 

sn 

$1B 

ft 

LDY 

$0303 

ft 

STA 

$C08E,Y 

ft 

LDA 

#$14 

ft 

STA 

$C08E,Y 

ft 

LDY 

$1B 

ft 

RTS 


ft 

LDX 

#$00 

ft 

LDY 

#$00 

ft 

STY 

$06 

ft 

LDA 

#$40 

ft 

STA 

$07 

ft 

TXA 


ft 

STA 

($06),Y 

ft 

INY 


ft 

BNE 

$8125 

ft 

INC 

$07 

ft 

INX 


ft 

CPX 

#$20 

ft 

BNE 

$8125 

ft 

RTS 


ft 

LDA 

$C053 

ft 

LDA 

$C057 

ft 

LDA 

$C055 

ft 

LDA 

$C050^ 

ft 

RTS 


ft 

STY 

$1B 

ft 

LDY 

$0303 

ft 

LDA 

$C08E,Y 

ft 

AND 

#$Q2 

ft 

BEQ 

$8144 

ft 

LDA 

$1C 

ft 

STA 

$C08F,Y 

ft 

LDY 

$1B 

. ft 

RTS 

V 

ft 

LDA 

$0302 

ft 

STA 

$1A 

ft 

INC 

$1A 

ft 

LDA 

$0301 

ft 

STA 

$19 

ft 

INC 

$19 

ft 

LDA 

$0301 

ft 

BNE 

$816B 

ft 
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8166- 

AD 02 03 

LDA 

$0302 

« 

8169- 

FO OB 

BEQ 

$8176 


816B- 

20 77 81 

JSR 

$8177 


816E- 

C6 19 

DEC 

$19 


8170- 

DO F9 

BNE 

$816B 

« 

8172- 

C6 1A 

DEC 

$1A 


8174- 

DO F5 

BNE 

$816B 


8176- 

60 

RTS 


» 

8177- 

84 IB 

STY 

$1B 

ft 

8179- 

AO C5 

LDY 

#$C5 

ft 

817B- 

88 

DEY 


ft 

817C- 

DO FD 

BNE 

$817B 

ft 

817E- 

A4 IB 

LDY 

$1B 

ft 

8180- 

60 

RTS 


ft 

8181- 

A2 00 

LDX 

//$00 

ft 

8183- 

86 08 

STX 

$08 

ft 

8185- 

A9 60 

LDA 

#$60 

ft 

8187- 

85 09 

STA 

$09 

ft 

8189- 

AO 27 

LDY 

#$27 

ft 

818B- 

BD 2B 82 

LDA 

$822B,X 

ft 

818E- 

85 06 

STA 

$06 

ft 

8190- 

E8 

INX 


ft 

8191- 

BD 2B 82 

LDA 

$822B,X 

ft 

8194- 

85 07 

STA 

$07 

ft 

8196- 

E8 

INX 


ft 

8197- 

B1 06 

LDA 

($06),Y 

ft 

8199- 

91 08 

STA 

C$08),Y 

ft 

819B- 

88 

DEY 

ft 

819C- 

10 F9 

BPL 

$8197 

ft 

819E- 

18 

CLC 


ft 

819F- 

A5 08 

LDA 

$08 

ft 

81A1- 

69 28 

ADC 

#$28 

ft 

81A3- 

90 02 

BCC 

$81A7 

ft 

81A5- 

E6 09 

INC 

$09 

ft 

81A7- 

85 08 

STA 

$08 

ft 

81A9- 

EC 09 03 

CPX 

$0309 

ft 

81AC- 

DO DB 

BNE 

$8189 

ft 

81AE- 

60 

RTS 


ft 

81AF- 

AE 09 03 

LDX 

$0309 

ft 

81B2- 

A9 00 

LDA 

#$00 

ft 

81B4- 

85 08 

STA 

$08 

ft 

81B6- 

A9 60 

LDA 

#$60 

ft 

81B8- 

85 09 

STA 

$09 

ft 

81BA- 

AO 27 

LDY 

#$27 

ft 

81BC- 

BD 2B 82 

LDA 

$822B,X 

ft 

81BF- 

85 06 

STA 

$06 

ft 

81C1- 

E8 

INX 


ft 

81C2- 

BD 2B 82 

LDA 

$822B,X 

ft 

81C5- 

85 07 

STA 

$07 

ft 

81C7- 

E8 

INX 


ft 

81C8- 

B1 08 

LDA 

($08),Y 

ft 

81CA- 

91 06 

STA 

($06),Y 

ft 
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8ICC- 88 

81CD- 10 F9 

81CF- 18 

81D0- A5 08 

81D2- 69 28 

81D4- 90 02 

81D6- E6 09 

81D8- 85 08 

81DA- EO 00 

81DC- DO DC 

81DE- 60 

81DF- 68 

81EO- A8 

81E1- 68 

81E2- A6 DF 

81E4- 9A 

81E5- 48 

81E6- 98 

81E7- 48 

81E8- 60 

81E9- 86 IE 

81EB- A2 27 

81ED- BD 50 06 

81F0- 9D 50 OA 

81F3- BD DO 06 

81F6- 9D DO OA 

81F9- BD 50 07 

81FC- 9D 50 OB 

8IFF- BD DO 07 

8202- 9D DO OB 

8205- CA 

8206- 10 E5 

8208- A6 IE 

820A- 60 


DEY 



BPL 

$81C8 


CLC 



LDA 

$08 


ADC 

#$28 

« 

BCC 

$81D8 

ft 

INC 

$09 

ft 

STA 

$08 

ft 

CPX 

#$00 

ft 

BNE 

$81 BA 

ft 

RTS 


ft 

PLA 


ft 

TAY 


ft 

PLA 


ft 

LDX 

$DF 

ft 

TXS 


ft 

PHA 


ft 

TYA 


ft 

PHA 


ft 

RTS 


ft 

STX 

$1E 

ft 

LDX 

#$27 

ft 

LDA 

$0650,X 

ft 

STA 

$0A5O,X 

ft 

LDA 

$06D0,X 

ft 

STA 

$OADO,X 

ft 

LDA 

$0750,X 

ft 

STA 

$0B50,X 

ft 

LDA 

$07D0,X 

ft 

STA 

$0BD0,X 

ft 

DEX 


ft 

BPL 

$81ED 

ft 

LDX 

$1E 

ft 

RTS 


ft 
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APPENDIX-B 


This appendix deals with 'Position Dectection’ . With the 
help of the 'DATA' file which stores the starting memory location 
of every row of the high resolution graphics screen, the 'ROW' 
and 'COL' prograns search the screen and locate the boundaries of 
the image. 'INITIAL' and 'CENTR' subroutines calculate the 
centroid of the image, 

A brief description of the programs with thier memory 
organization and progran listing is given. 
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This routine searches the High Resolution 
Graphics screen row by row and accounts for the nunber of OFF 
bits in every row. It even has the capability of detecting and 

storing the first OFF bit in a row. 

It basically consists of two main subroutines 

1) JSR 87B2 

This subroutine checks every memory location of HGR 
for bits which are OFF and stores the no, of OFF bits for every 
row in memory location $8540-857F, It stores the position of the 
first OFF bit of every row in memory $8500-853F. 

2) JSR 880B 

This subroutine locates the byte i^ich contains the 
first OFF bit and converts it into # of bits. 

MEMORY MAP 

$0-$80 * Used for indirect access of meniraory from HGR 

$81 * Temporary storage for no, of rows 

$82 * Counter for incrsnenting the bytes in a row ' 

$83 * Contains $FF to conpare if all the bits are ON. 

$84 ^ Counter to check if it is the first OFF bit in that 

* row 

$86 * Stores the nunber of CFF bits in a row 

$8340-C0 * Temporary storage of Zero Page 
$8410-90 * Stores the Data File 

$8500-3F » Stores the location of the first CFF bit in each row 


























$8540-7F * Stores the no. of CFF bits in a row. 
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PROGRAM USTING OF ROW IMPORTANT REMARKS 


* 


873F- 

A2 00 


LDX 

mo 


8741- 

A9 00 


LDA 

mo 

« 

Initialization of memory * 

8743- 

9D 00 

85 

STA 

$8500,X 

« 

location $8500-8580 « 

8746- 

E8 


INX 



8747- 

EO 81 


CPX 

#$81 


ft 

8749- 

DO F8 


BNE 

$8743 


ft 

874B- 

A9 01 


LDA 

#$01 


ft 

874D- 

8D 1C 

03 

STA 

$031C 


ft 

8750- 

A2 00 


LDX 

#$00 


8752- 

B5 00 


LDA 

$00 ,X 


Store ZERO PAGE in some * 

8754- 

9D 40 83 

STA 

$8340,X 


auxilary memory location * 

8757- 

E8 


INX 



($8340-$83BF) * 

8758- 

EO 90 


CPX 

#$90 


875A- 

DO F6 


BNE 

$8752 

ft 

ft 

875C- 

A9 FF 


LDA 

#$FF 

ft 

ft 

875E- 

85 83 


STA 

$83' 

ft 

ft 

8760- 

A9 07 


LDA 

#$07 

ft 

ft 

8762- 

85 89 


STA 

$89 

ft 

ft 

8764- 

AO 00 


LDY 

#$00 

ft 

ft 

8766- 

98 


TYA 


ft 

ft 

8767- 

85 81 


STA 

$8,1 

ftftftftftftftftftftftftftftftftftftftftftftftftftftftftft 

8769- 

A2 00 


LDX 

#$00 

ft 

Initialize the counter * 

876B- 

8A 


TXA 


ft 

for the no of rows(Y=$8l)* 

876C- 

85 82 


STA 

$82 

ft 

and for the no of bytes * 

876E- 

E6 81 


INC 

$81 

ft 

in a row (X=$82) * 

8770- 

18 


CLC 


ftftftftftftftftftftftftftftftftftftftftftftftftftftftftft 

8771- 

B9 10 

84 

LDA 

$8410,Y 

ftftftftftftftftftftftftftftftftftftftftftftftftftftftftft 

8774- 

95 00 


STA 

$00,X 

ft 

Load the High Resolution ♦ 

8776- 

E8 


INX 


ft 

Graphics memory into the * 

8777- 

E8 


INX 


ft 

Zero Page row by row * 

8778- 

6D 1C 03 

ADC 

$031C 

ft 

$8410-$848F stores the ** 

877B- 

EO 46 


CPX 

#$46 

ft 

first monory location of * 

877D- 

DO F5 


BNE 

$8774 

ft 

every row of High - * 

877F- 

C8 


INY 


ft 

Resolution Graphics * 

8780- 

A2 00 


LDX 

#$00 

ftftftftfttfftftftftftftftftftftftftftftftftftftftftftftft 

8782- 

B9 10 

84 

LDA 

$8410,Y 

ft 

ft 

8785- 

95 01 


STA 

$01 ,X 

ft 

ft 

8787- 

E8 


INX 


ft 

ft 

8788- 

E8 


INX 


ft 

ft 

8789- 

EO 46 


CPX 

#$46 

ft 

ft 

878B- 

DO F8 


BNE 

$8785 

ft 

ft 

878D- 

C8 


INY 


ft 

ft 

878E- 

A9 00 


LDA 

#$00 

ftftftftXftftftftftftftftftftftftftXftftftftftftftftftft 

8790- 

85 84 


STA 

$84 

ft 

Initialise seme important * 

8792- 

85 86 


STA 

$86 

ft 

counters * 

8794- 

A2 00 


LDX 

#$00 

ftftftftftftftftftftftftftftftftftftftftftftftftftftftftft 

8796- 

20 B2 87 

JSR 

$87B2 

ft 

ft 

8799- 

E6 82 


INC 

$82 

ft 

ft 

879B- 

E8 


INX 


ft 

ft 
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879C- 

E8 

INX 


» 

ft 

879D- 

EO 46 

CPX 

me 

« 

ft 

879F- 

DO F5 

BNE 

$8796 

ft 

ft 

87A1- 

CO 80 

CPY 

#$80 

ft 

ft 

87A3- 

DO C4 

BNE 

$8769 

ft 

ft 

87A5- 

A2 00 

LDX 

#$00 

ftftftftftftftftftftftftftftftftftftftftftftftftftftftftft 

87A7- 

BD 40 83 

LDA 

$8340,X 

ft 

Reload the Zero Page * 

87AA- 

95 00 

STA 

$00,X 

ft 

frcm the auxilary memory * 

87AC- 

E8 

INX 


ftftftftftftftftftftftftftftftftftftftftftftftftftftftftft 

87AD- 

EO 90 

CPX 

#$90 

ft 

ft 

87AF- 

DO F6 

BNE 

$87A7 

ft 

ft 

87B1- 

60 

RTS 


ftftftftftftftftftftftftftftftftftftftftftftKftftftftHftft 

87B2- 

A1 00 

LDA 

($00,X) 

ft 

Indirect access of HGR * 

87B4- 

C5 83 

CMP 

$83 

ft 

and check for the number * 

87B6-. 

FO 41 

BEQ 

$87F9 

ft 

of bits off in the HGR * 

87B8- 

86 85 

STX 

$85 

ft 

byte » 

87BA- 

A2 00 

LDX 

#$00 

ft«»ftftft«ftftftftftft»ftftft»ftftftftftftftftftftj( 

87BC- 

E8 

INX 


ft 

ft 

87BD- 

EO 09 

CPX 

#$09 

ft 

ft 

87K^- 

FO OA 

BEQ 

$87CB 

ft 

ft 

87C1- 

OA 

ASL 


ft 

ft 

87C2- 

BO F8 

BCS 

$87BC 

ft 

ft 

87C4- 

E6 86 

INC 

$86 

ft 

ft 

87C6- 

4C BC 87 

JMP 

$87BC 

ft 

ft 

87C9- 

EA 

NOP 


ft 

ft 

87CA- 

EA 

NOP 


«ftftftft«ftftftftftftftftftftftft«»»«ft«««««« 

87CB- 

A6 84 

LDX 

$84 

ft 

Searches a row for the * 

87CD- 

EO 00 

CPX 

#$00 

ft 

first byte with atleast * 

87CF- 

DO 26 

BNE 

$87F7 

ft 

one bit off and stores * 

87D1- 

A9 01 

LDA 

#$01 

ft 

location of this byte in • 

87D3- 

85 84 

STA 

$84 

ft 

the form of bits in the * 

87D5- 

20 OB 88 

JSR 

$880B 

ft 

memory location $8500-3F * 

87D8- 

18 

CLC 


ftftftftftftftftftftftftftftftftftftftftftftftftftftftftft 

87D9- 

A5 87 

LDA 

$87 

ft 

ft 

87DB- 

65 89 

ADC 

$89 

ft 

ft 

87DD- 

85 87 

STA 

$87 

ft 

ft 

87DF- 

38 

SEC 


ft 

ft 

87E0- 

A5 87 

LDA 

$87 

ft 

ft 

87E2- 

E5 86 

SBC 

$86 

ft 

ft 

87E4- 

EA 

NOP 


ft 

ft 

87E5- 

EA 

NOP 


ft 

ft 

87E6- 

EA 

NOP 


ft 

ft 

87E7- 

EA 

NOP 


ft 

ft 

87E8- 

EA 

NOP 


ft 

ft 

87E9- 

84 88 

STY 

$88 

ft 

ft 

87EB- 

A4 81 

LDY 

$81 

ft 

ft 

87Er)- 

99 00 85 

STA 

$8500,Y 

ft 

ft 

87F0- 

A4 88 

LDY 

$88 

ft 

ft 

87F2- 

A6 85 

LDX 

$85 

ft 

ft 

87F4- 

4C OA 88 

JMP 

$880A 

ft 

ft 

87F7- 

A6 85 

LDX 

$85 

ft 

ft 

87F9- 

A9 22 

LDA 

#$22 

ft 

ft 
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&7FB- 

C5 82 

CMP 

$82 


ft 

87FD- 

DO OB 

BNE 

$880A 


ft 

87FF- 

84 88 

STY 

$88 


ft 

8801- 

A4 81 

LDY 

$81 

% 

ft 

8803- 

A5 86 

LDA 

$86 


8805- 

99 40 85 

STA 

$8540,Y 


Stores the no. of OFF bits* 

8808- 

A4 88 

LDY 

$88 

« 

of a row in memory 8540-7F* 

880A- 

60 

RTS 


at 

ftftftftftftftftftftftftftftftftftftftftftftftftftftftft 

880B- 

A2 00 

LDX 

mo 

» 

ft 

880D- 

A5 82 

LDA 

$82 

ft 

ft 

880F- 

85 87 

STA 

$87 

ft 

ft 

8811- 

18 

CLC 


ftftftftftftftftftftftftftftftftftftftftftftftftftftftftftft 

8812- 

A5 87 

LDA 

$87 

ft 

This routine converts * 

8814- 

65 82 

ADC 

$82 

ft 

bytes into bits * 

8816- 

85 87 

STA 

$87 

ftftftftftftftftftftftftftftftftftftftftftftftftftftftftft 

8818- 

E8 

INX 


ft 

ft 

8819- 

EO 06 

CPX 

#$06 

ft 

ft 

881B- 

DO F4 

BNE 

$8811 

ft 

ft 

88 ID- 

60 

RTS 


ft 

ft 











ASSEMBLY ROUTINE "COL" 


This routine scans the High Resolution Graphics 
Screen vertically and registers the no, of OFF bits in every 
colunn . It scans 245 colunns containing 64 bits each. It 
stores the no, of OFF bits of a colunn in memory location 
$88D0-$89C5. The heart of this M/C program is the subroutine JSR 
889B, This subroutine checks forOFF bits in every colunn and 
stores them in the corressponding memory location of 
$88D0-$89C5. 

MEMORY MAP 

$00-80 * Stores one colunn of HGR screen at a time. 

$83 * Increments a colunn in terms of bytes. 

$84 * Increments a colunn in terms of bits. 

$8340-CF * Stores the Zero Page. 

$88D0-C5 * Stores the no. 


of OFF bits of the 245 colunns. 
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PROGRAM LISTING OF COL IMPORTANT REMARKS 


8850- 

A2 00 


LDX 

#$00 


8852- 

A9 00 


LDA 

#$00 


Initialize $88D0-89C5 

* 

8854- 

9D DO 

CO 

00 

STA 

$88D0,X 


8857- 

E8 


INX 



* 

8858- 

EO F5 


CPX 

#$F5 



* 

885A- 

DO F6 


BNE 

$8852 



* 

885C- 

A2 00 


LDX 

#$00 

***************************** 

885E- 

B5 00 


LDA 

$00,X 

* 

Save the Zero Page in 

* 

8860- 

9D 40 

83 

STA 

$8340,X 

* 

memory location $8340- 

* 

8863- 

E8 


INX 



8864- 

EO 85 


CPX 

#$85 

* 


* 

8866- 

DO F6 


BNE 

$885E 

* 


* 

8868- 

A9 00 


LDA 

#$00 

* 


* 

886A- 

85 83 


STA 

$83 

* 


* 

886C- 

85 84 


STA 

$84 

* 


* 

886E- 

A2 00 


LDX 

#$00 

* 


* 

8870- 

18 


CLC 


* 


* 

8871- 

BD 10 

84 

LDA 

$8410,X 


8874- 

65 83 


ADC 

$83 

* 

Load the first byte of 

* 

8876- 

95 00 


STA 

$00,X 

* 

every row of the HGR 

* 

8878- 

E8 


INX 


* 

from the data file and 

* 

8879- 

BD 10 84 

LDA 

$8410,X 

* 

store it in Zero Page 

* 

887C- 

95 00 


STA 

$00 ,X 

***************************** 

887E- 

E8 


INX 

* 


* 

887F- 

EO 80 


CPX 

#$80 

* 


* 

8881- 

DO ED 


BNE 

$8870 

* 


* 

8883- 

E6 83 


INC 

$83 

* 


* 

8885- 

20 9B 88 

JSR 

$889B 

* 


* 

8888- 

A9 23 


LDA 

#$23 

***************************** 

888A- 

C5 83 


CMP 

$83 

* 

Check if all the colunns 

* 

888c- 

DO EO 


BNE 

$886E 

* 

are scanned 

* 

888E- 

A2 00 


LDX 

#$00 

***************************** 

8890- 

BD 40 83 

LDA 

$8340,X 

* 


* 

8893- 

95 00 


STA 

$00,X 

***************************** 

8895- 

E8 


INX 

* 

Reload the Zero Page 

* 

8896- 

EO 85 


CPX 

#$85 


8898- 

DO F6 


BNE 

$8890 

* 


* 

889A- 

60 


RTS 


* 


* 

889B- 

AO 00 


LDY 

#$00 

* 


* 

889D- 

A2 00 


LDX 

#$00 

* 


* 

889F- 

A1 00 


LDA 

($00,X) 


88A1- 

99 00 

00 

STA 

$0000,Y 

* 

Store the value of HGR 

* 

88A4- 

C8 


INY 

* 

in the Zero Page for a 

* 

88A5- 

E8 


INX 


* 

particular colimn 

* 

88A6- 

E8 


INX 



88A7- 

EO 80 


CPX 

#$80 

* 


* 

88A9- 

DO F4 


BNE 

$889F 

* 


* 

88AB- 

AO 00 


LDY 

#$00 

* 


* 

88AD- 

A2 00 


LDX 

#$00 






























88AF- 

56 

00 

LSR 

$00,X 


Check if the bit is OFF * 

88B1-. 

BO 

09 

BCS 

$88BC 


88B3- 

86 

82 

STX 

$82 


ft 

88B5- 

A6 

84 

LDX 

$84 


88B7- 

FE 

DO 88 

INC 

$88DO,X 

K 

Check 7 times if the bit * 

88BA- 

A6 

82 

LDX 

$82 

ft 

is OFF in a byte,if so * 

88BC- 

E8 


INX 


ft 

increment the res^ctive * 

88BD- 

EO 

40 

CPX 

#$40 

ft 

memory location(88D0-89C5)* 

88BF- 

DO 

EE 

BNE 

$88AF 

ftftftftftftftftftftftftftftftftftftftftftftftftftftftftft 

88C1- 

E6 

84 

INC 

$84 

ft 

ft 

88C3- 

C8 


INY 


ft 

ft 

88C4- 

CO 

07 

CPY 

#$07 

ft 

ft 

88C6- 

DO 

E5 

BNE 

$88AD 

ft 

ft 

88C8- 

60 


RTS 


ft 

ft 

















ASSEMBLY ROUTINE "INITIAL" 


This short routine is divided into two subroutines. 

1) JSR 320 

It initializes the memory location which stores the 
result .($310-$313) of "POL/MOM". Then it transfers the result 
of column search of the "COL" program from memory $88D0-$89C5 to 
a common menory $9000-$90F5. This is required by the WC progran 
"POL/MOM" to calculate (X-x)*»2. 

2) JSR 350 

It initializes the memory location ($310-313) 
which stores the result of the WC program "POL/MOM". Then it 
transfers the outcome of the row search from memory $8540-$857F 
to a common memory $9000-$903F. This is required by "POL/MOM" to 
calculate (Y-y)**2. 
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PROGRAM LISTING OF INITIAL 


0320 - A9 F5 

0322 - 8D 98 03 

0325 - A9 00 

0327 - 8D 10 03 

032A- 8D 11 03 

032D- 8D 12 03 

0330- 8 D 13 03 

0333 - A2 00 

0335 - BD DO 88 

0338- 9D 00 90 

033B- E8 

033 c- EC 98 03 

033F- DO pii 

0341 - 60 

0342 - EA 

0343 - EA 

0344 - EA 

0345 - EA 

0346- EA 

0347 - EA 

0350 - A9 40 

0352 - 8D 98 03 

0355 - A2 00 

0357 - 8E 10 03 

035A- 8E 11 03 

035D- 8E 12 03 

0360- 8E 13 03 

0363- BD 40 85 

0366 - 9D 00 90 

0369- E8 

036A- EC 98 03 

036D- DO F4 

036F- 60 


LDA 

#$F5 


STA 

$0398 


LDA 

#$00 


STA 

$0310 


STA 

$0311 


STA 

$0312 

* 

STA 

$0313 


LDX 

#$00 


LDA 

$88D0,X 


STA 

$ 9000 , X 


INX 



CPX 

$0398 

« 

BNE 

$0335 

it 

RTS - 


it 

NOP 


it 

NOP 


it 

NOP 


it 

NOP 


it 

NOP 


it 

NOP 


it 

LDA 

#$40 

« 

STA 

$0398 

it 

LDX 

#$00 

it 

STX 

$0310 

it 

STX 

$0311 

it 

STX 

$0312 

it 

STX 

$0313 

it 

LDA 

$8540,X 

it 

STA 

$ 9000 ,X 

it 

INX 


it 

CPX 

$0398 

» 

BNE 

$0363 

» 

RTS 


it 
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ASSEMBLY ROUTINE"CENTR" 

This routine calculates the area of the image in the 
terms of no, of OFF bits. Then it calculates the centroid of 
the object. 

1) Calculation of the area: 

Run the H^C progran "ROW" and then 
this part of the routine just adds the no. of OFF bits fron 
monory location $8540-$857F and stores the area in $3^3(LSB) and 
$344(MSB). 

2) Calculation of the Centroid: 

Run the "COL" and "RCW* 
routines. Then scan the memory that stores the no. of OFF bits 
row by row and add them up. Stop searching as soon as the sum is 
equal to half the area . Store the value of the row in $30A. 
this gives the y coordinate of the centroid. 

Similarly search the memory that stores the no. 
of OFF bibs column by colunn. Stop as soon as the sun is equal 
to half the area. Store the column nunber in $30B,which gives 
the X coordinate of the centroid. 
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PROGRAM USTING OF CENTR IMPORTAWT REM 


8C00- 

A2 

00 


LDX 

#$00 



ft 

8C02- 

8E 

43 

03 

SIX 

$0343 

» 


ft 

8C05- 

8E 

44 

03 

STX 

$0344 

« 


ft 

8C08- 

18 



CLC 



8C09- 

BD 

40 

85 

LDA 

$8540,X 


Calculation of area 

ft 

8C0C- 

6D 

43 

03 

ADC 

$0343 

n 

MSB-$344; LSB-$343 

ft 

8C0F- 

8D 

43 

03 

STA 

$0343 



ft 

8C12- 

90 

03 


BCC 

$8C17 


8C14- 

EE 

44 

03 

INC 

$0344 



ft 

8C17- 

E8 



INX 




ft 

8C18- 

EO 

40 


CPX 

#$40 



ft 

8C1A- 

DO 

EC 


BNE 

$8C08 



ft 

8C1C- 

AD 

43 

03 

LDA 

$0343 

*•••*****««***•***••*»»«***«• 

8C1F- 

8D 

90 

03 

STA 

$0390 


Divide area by 2 

ft 

8C22- 

AD 

44 

03 

LDA 

$0344 



ft 

8C25- 

8D 

91 

03 

STA 

$0391 

ft 

Store area/2 in 390-391 

ft 

8C28- 

18 



CLC 


ftftftft»ftftftft*ftft*ft****ftftft**«ft*ftftft 

8C29- 

4E 

90 

03 

LSR 

$0390 

ft 


ft 

8C2C- 

6E 

91 

03 

ROR 

$0391 

ft 


ft 

8C2F- 

90 

09 


BCC 

$8C3A 

ft 


ft 

8C31- 

18 



CLC 


ft 


ft 

8C32- 

A9 

80 


LDA 

#$80 

ft 


ft 

8C34- 

6D 

90 

03 

ADC 

$0390 

ft 


ft 

8C37- 

8D 

90 

03 

STA 

$0390 

ft 


ft 

8C3A- 

20 

50 

03 

JSR 

$0350 

ft 


ft 

8C3D- 

20 

4D 

8C 

JSR 

$8C4D 

ft 


ft 

8C40- 

8E 

OB 

03 

STX 

$030B 

ft 

Stores centroid (y) 

ft 

8C43- 

20 

20 

03 

JSR 

$0320 

ft 


ft 

8C46- 

20 

4D 

8C 

JSR 

$8C4D 

ft 


ft 

8C49- 

8E 

OA 

03 

STX 

$030A 

ft 

Stores centroidCx) 

ft 

8C4C- 

60 



RTS 


ft 


ft 

8C4D- 

A2 

00 


LDX 

mo 

ftftftftftftftftftftftftftftftftftftftftftftftftftftftftft 

8C4F- 

8E 

8E 

03 

STX 

$038E 

ft 

In this subroutine 

ft 

8C52- 

8E 

8F 

03 

STX 

$038F 

ft 

the particular row or 

ft 

8C55- 

18 



CLC 


ft 

colunn is identified 

ft 

8C56- 

BD 

00 

90 

LDA 

$9000,X 

ft 

where the area=area/2 

ft 

8C59- 

6D 

8E 

03 

ADC 

$038E 

ft 


ft 

8C5C- 

8D 

8E 

03 

STA 

$038E 

ft 


ft 

8C5F- 

90 

03 


BCC 

$8C64 

ft 


ft 

8C61- 

EE 

8F 

03 

INC 

$038F 

ft 


ft 

8C64- 

AD 

8F 

03 

LDA 

$038F 

ft 


ft 

8C67- 

CD 

91 

03 

CMP 

$0391 

ft 


ft 

8C6A- 

FO 

04 


BEQ 

$8C70 

ft 


ft 

8C6C- 

E8 



INX 


ft 


ft 

8C6D- 

4C 

55 

8C 

JMP 

$8C55 

ft 


ft 

8C70- 

AD 

90 

03 

LDA 

$0390 

ft 


ft 

8C73- 

8D 

46 

03 

STA 

$0346 

ft 


ft 

8C76- 

OA 



ASL 


ft 


ft 

8C77- 

90 

IE 


BCC 

$8C97 

ft 


ft 




















8C79- 

38 

SEC 


9k 

ft 

8C7A- 

A9 7F 

LDA 

#$7F 

9k 

ft 

8C7C- 

ED 8E 03 

SBC 

$038E 

9k 

ft 

8C7F- 

30 06 

BMI 

$8C87 

9k 

ft 

8C81- 

20 A7 8C 

JSR 

$8CA7 

9k 

ft 

8C84- 

79 8C 

JMP 

$8C79 

9k 

ft 

8C87- 

AD 8E 03 

LDA 

$038E 

9k 

ft 

8C8A- 

29 7F 

AND 

#$7F 

* 

ft 

8C8C- 

8D 8E 03 

STA 

$038E 

« 

ft 

8C8F- 

AD 46 03 

LDA 

$0346 

9k 

ft 

8C92- 

29 7F 

AND 

#$7F 

9k 

ft 

8C94- 

8D 46 03 

STA 

$0346 

9k 

ft 

8C97- 

38 

SEC 


9k 

ft 

8C98- 

AD 46 03 

LDA 

$0346 

9k 

ft 

8C9B- 

ED 8E 03 

SBC 

$038E 

9k 

ft 

8C9E- 

30 06 

BMI 

$8CA6 

9k 

ft 

8CA0- 

20 A7 8C 

JSR 

$8CA7 

9k 

ft 

8CA3- 

4C 97 8C 

JMP 

$8C97 

9k 

ft 

8CA6- 

60 

RTS 


9k 

ft 

8CA7- 

E8 

INX 


9k 

ft 

8CA8- 

18 

CLC 


ft 

ft 

8CA9- 

BD 00 90 

LDA 

$9000,X 

ft 

ft 

8CAC- 

6D 8E 03 

ADC 

$038E 

ft 

ft 

8CAF- 

8D 8E 03 

STA 

$038E 

ft 

ft 

8CB2- 

60 

RTS 


ft 

ft 













APPENDIX-C 


This appendix deals with ’Orientation Dectection'. Here 
'POL/MOM calculates Ixx and lyy, whereas *IIXXYY* ccmputes Ixy. 
Ixx and lyy are the central moments about x and y axis and Ixy is 
the product of inertia. 

The orientation is then computed from the following 
geometric relationship:- 
tan 2A = -2*Ixy/(Ixx-Iyy) 

where A is the angle of the major axis with respect to a row on 
the screen. 

A brief description of the above machine language prograns 
and thier listing is given. 













ASSEMBLY ROUTINE ”POL/MOM" 


This machine language progran is capable 
of calculating the second Moment of Inertia about the X-axis or 
about the Y-axis that is either Ixx or lyy of the image. 

Before running this routine the centroid should 
be loaded in memory location $30A. and the binary file "INITIAL" 
should be loaded. In order to calculate Ixx JSR 320 should be 
executed and to calculate lyy, JSR 350 should be executed. These 
subroutines vdll be discussed under "INITIAL". 

The final values of Ixx or lyy are stored in memory 
locations $ 310 -$ 313 jWhere $313 is the most significant byte and 
$310 is the least significant byte. 

The main subroutines of the program are as follows 

1) JSR 8A60 

This subroutine calculates the absolute difference 
between X-x orY-y 

2) JSR 8A3D 

this is a standard eight bit multiplication 

subroutine. 

3) JSR 8AD0 

This is a multiple byte Addition subroutine. 
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MEMORY MAP 

$301 * Stores the no. of OFF bits of a row or a colunn. 

$302 * Stores the MSB of (X-x)*»2 or (Y-y)**2 

$303 * (LSB) Stores the LSB of the product of N*(Y-y)**2 

» or K»(X-x)»»2 

$304 * (MSB) where N=no of OFF bits in a row or a colunn 

$305 * (LSB) Stores the MSB of the above product 

$306 * (MSB) Stores the MSB of the above product. 

$30A * Stores the centroid(x or y) 

$310-13 * Stores the final result 

$9000- * Stores the no. of CFF bits of a row or colunn . 
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PROGRAM LISTING OF"POL/MOM” IMPORTANT REM 


89D0- 

A9 00 

LDA 

#$00 

* 

ft 

89D2- 

8D 99 03 

STA 

$0399 


ft 

89D5- 

A2 00 

LDX 

#$00 

a 

ft 

89D7- 

BD 00 90 

LDA 

$9000, X 

* Load the no of OFF bits * 

89DA- 

CD 99 03 

CMP 

$0399 


ft 

89DD- 

FO 57 

BEQ 

$8A36 


ft 

89DF- 

8D 01 03 

STA 

$0301 


ft 

89E2- 

8E 00 10 

STX 

$1000 


ft 

89E5-- 

AD OA 03 

LDA 

$030A 

* Load the centroidCx or y)* 

89E8- 

8D 01 10 

STA 

$1001 


ft 

89EB- 

20 60 8A 

JSR 

$8A60 

* Finds ABS(X-x) or (Y-y) * 

89EE- 

AD 03 10 

LDA 

$1003 

ft 

ft 

89F1- 

8D 02 10 

STA 

$1002 

ft 

ft 

89F4- 

20 3D 8A 

JSR 

$8A3D 

* calculates SQR ofX-x orY-y* 

89F7- 

AD 00 10 

LDA 

$1000 

ft 

ft 

89FA- 

8D 02 03 

STA 

$0302 

* Stores MSB of result * 

89FD- 

AD 01 03 

LDA 

$0301 

ft 

ft 

8A00- 

8D 03 10 

STA 

$1003 

* Multiplies no of rows or* 

8A03- 

AD 01 10 

LDA 

$1001 

^column by the LSB of result* 

8A06- 

8D 02 10 

STA 

$1002 

ft 

ft 

8A09- 

20 3D 8A 

JSR 

$8A3D 

ft 

ft 

8A0C- 

AD 01 10 

LDA 

$1001 

ft 

ft 

8A0F- 

8D 03 03 

STA 

$0303 

ft 

ft 

8A12- 

AD 00 10 

LDA 

$1000 

* Multiplies no of rows or * 

8A15- 

8D 04 03 

STA 

$0304 

*Colunn by MSB of the result* 

8A18- 

AD 02 03 

LDA 

$0302 

ft 

ft 

8A1B- 

8D 02 10 

STA 

$1002 

ft 

ft 

8A1E- 

AD 01 03 

LDA 

$0301 

ft 

ft 

8A21- 

8D 03 10 

STA 

$1003 

ft 

ft 

8A24- 

20 3D 8A 

JSR 

$8A3D 

ft 

ft 

8A27- 

AD 01 10 

LDA 

$1001 

ft 

ft 

8A2A- 

8D 05 03 

STA 

$0305 

ft 

ft 

8A2D- 

AD 00 10 

LDA 

$1000 

X 

ft 

8A30- 

8D 06 03 

STA 

$0306 

ft 

ft 

8A33- 

20 DO 8A 

JSR 

$8AD0 

* Three byte ADD subroutine * 

8A36- 

E8 

INX 


ft 

ft 

8A37- 

EC 98 03 

CPX 

$0398 

ft 

ft 

8A3A- 

DO 9B 

BNE 

$89D7 

ft 

ft 

8A3C- 

60 

RTS 


ft 

ft 

8A3D- 

AO 08 

LDY 

#$08 

ftftftftftftftftftftftftftftftftftftXftftftftftftftftftft 

8A3F- 

A9 00 

LDA 

#$00 

* 8 BIT multiplication • 

8A41- 

8D 00 10 

STA 

$1000 

ft 

ft 

8A44- 

8D 01 10 

STA 

$1001 

ft 

ft 

8A47- 

OA 

ASL 


ft 

ft 

8A48- 

2E 00 10 

ROL 

$1000 

ft 

ft 

8A4B- 

OE 03 10 

ASL 

$1003 

ft 

ft 

8A4E- 

90 09 

BCC 

$8A59 

ft 

ft 

8A50- 

18 

CLC 


ft 

ft 










8A51- 

6D 

02 

10 

ADC 

$1002 

8A54- 

90 

03 


BCC 

$8A59 

8A56- 

EE 

00 

10 

INC 

$1000 

8A59- 

88 



DEY 


8A5A- 

DO 

EB 


BNE 

$8A47 

8A5C- 

8D 

01 

10 

STA 

$1001 

8A5F- 

60 



RTS 


8A60- 

A9 

FF 


LDA 

#$FF 

8A62- 

8D 

02 

10 

STA 

$1002 

8A65- 

A9 

00 


LDA 

#$00 

8A67- 

8D 

07 

03 

STA 

$0307 

8A6A- 

8D 

08 

03 

STA 

$0308 

8A6D- 

AD 

00 

10 

LDA 

$1000 

8A70- 

OA 



ASL 


8A71- 

BO 

09 


BCS 

$8A7C 

8A73- 

AD 

01 

10 

LDA 

$1001 

8A76- 

OA 



ASL 


8A77- 

BO 

OB 


BCS 

$8A84 

8A79- 

4C 

89 

8A 

JMP 

$8A89 

8A7C- 

A9 

01 


LDA 

#$01 

8A7E- 

8D 

07 

03 

STA 

$0307 

8A81- 

4C 

73 

8A 

JMP 

$8A73 

8A84- 

A9 

01 


LDA 

#$01 

8A86- 

8D 

08 

03 

STA 

$0308 

8A89- 

AD 

08 

03 

LDA 

$0308 

8A8C- 

CD 

07 

03 

CMP 

$0307 

8A8F- 

FO 

ID 


BEQ 

$8AAE 

8A91- 

A9 

00 


LDA 

#$00 

8A93- 

CD 

07 

03 

CMP 

$0307 

8A96- 

DO 

OB 


BNE 

$8AA3 

8A98- 

38 



SEC 


8A99- 

AD 

01 

10 

LDA 

$1001 

8A9C- 

ED 

00 

10 

SBC 

$1000 

8A9F- 

8D 

03 

10 

STA 

$1003 

8AA2- 

60 



RTS 


8AA3- 

38 



SEC 


8AA4- 

AD 

00 

10 

LDA 

$1000 

8AA7- 

ED 

01 

10 

SBC 

$1001 

8AAA- 

8D 

03 

10 

STA 

$1003 

8AAD- 

60 



RTS 


8AAE- 

38 



SEC 


8AAF- 

AD 

00 

10 

LDA 

$1000 

8AB2- 

ED 

01 

10 

SBC 

$1001 

8AB5- 

30 

04 


BMI 

$8ABB 

8AB7- 

8D 

03 

10 

STA 

$1003 

8ABA- 

60 



RTS 


8ABB- 

ED 

02 

10 

SBC 

$1002 

8ABE- 

8D 

03 

10 

STA 

$1003 

8AC1" 

38 



SEC 


8AC2- 

AD 

02 

10 

LDA 

$1002 

8AC5- 

ED 

03 

10 

SBC 

$1003 

8AC8- 

8D 

03 

10 

STA 

$1003 


» « 

» 

* Absolute subtraction * 

* « 

« n 

K « 

» « 

« X 

« 

X « 

« « 

» « 

If If 

« If 

if If 

« If 

It If 

* If 

If » 

« If 

If If 

ft If 

If « 

« If 

« « 

# If 

If ft 

If If 

ft ft 

If If 

If ft 

ft ft 

ft It 

If If 

ft If 

If If 

ft ft 

ft ft 

ft If 

ft If 

ft ft 

ft ft 

ft ft 

ft ft 

ft ft 

ft If 

ft ft 












8ACB- 

EE 03 10 

INC 

$1003 



ft 

8ACE- 

60 

RTS 



8ACF- 

00 

BRK 


t 


ft 

8AD0- 

18 

CLC 


« 

Three byte addition 

ft 

8AD1- 

AD 10 03 

LDA 

$0310 

ft 

ft 

SAIW- 

6D 03 03 

ADC 

$0303 


Stores the result in 

ft 

8AD7- 

8D 10 03 

STA 

$0310 

« 

$310-$312 

ft 

8ADA- 

90 03 

BCC 

$8ADF 

* 


ft 

8ADC- 

EE 11 03 

INC 

$0311 

* 


ft 

8AIF-. 

18 

CLC 


* 


ft 

8AE0- 

AD 11 03 

LDA 

$0311 

ft 


ft 

8AE3- 

6D on 03 

ADC 

$0304 

ft 


ft 

8AE6- 

8D 11 03 

STA 

$0311 

ft 


ft 

8AE9- 

90 03 

BCC 

$8AEE 

ft 


ft 

8AEB- 

EE 12 03 

INC 

$0312 

ft 


ft 

8AEE- 

18 

CLC 


ft 


ft 

8AEF- 

AD 11 03 

LDA 

$0311 

ft 


ft 

8AF2- 

6D 05 03 

ADC 

$0305 

ft 


ft 

8AF5- 

8D 11 03 

STA 

$0311 

ft 


ft 

8AF8- 

90 03 

BCC 

$8AFD 

ft 


ft 

8AFA- 

EE 12 03 

INC 

$0312 

ft 


ft 

8AFD- 

18 

CLC 


ft 


ft 

8AFE- 

AD 12 03 

LDA 

$0312 

ft 


ft 

8B01- 

6D 06 03 

ADC 

$0306 

ft 


ft 

8B04- 

8D 12 03 

STA 

$0312 

ft 


ft 

8B07- 

90 03 

BCC 

$8B0C 

ft 


ft 

8B09- 

EE 13 03 

INC 

$0313 

ft 


ft 

8B0C- 

60 

RTS 


ft 


ft 




ASSEMBLY ROUTINE"IIXXYY” 


This progran calculates the product of inertia in the given 
plane. Before running this routine the assembly routine 'ROW 
should be executed and e loaded. 

It stores the final result in memory 
locations($310-$315) ,where $310-312 store the positive values and 
$313-315 store the negative values 

It basically consists of 3 main subroutines: 

1) JSR 8D87: Absolute Subtraction 

2) JSR 8A3D: 8 BIT Multiplication 

3) JSR 8E05: Multiple Byte Addition 

MEMORY MAP 

$301- Stores the no. of OFF bits in a row 

$303(LSB),$304,$305(MSB)- Temporary storage of the result 

$30A- X coordinate of the centroid* 

$30B y coordinate of the centroid, 

$310 LSB of the positive result 
$312 MSB of the positive result 
$313 LSB of the negative result 
$315 MSB of the negative result 
$39D 0 if (X-x) is positive 
$39E 0 if (Y-y) is positive 
$396 Temporary storage for (Y-y) 

$8500-$853F - X coordinate of the first OFF bit in a row 
$8540-$857F - no, of OFF bits in a row. 
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$8410-848F Table for High Pesolttfcion Mfesrory Graphics, 
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PROGRAM LISTING OF IIXXYY IMPORTANT REMARKS 


8DOO- 

A9 

00 


LDA 

mo 


8D02- 

A2 

00 


LDX 

mo 


Initialize the memory 

ft 

8D04- 

9D 

10 

03 

STA 

$0310,X 

• 

which stores the result 

ft 

8D07- 

E8 



INX 


8D08- 

EO 

06 


CPX 

//$06 

II 


ft 

8D0A- 

DO 

F8 


BNE 

$8D04 

« 


ft 

8D0C- 

8D 

99 

03 

STA 

$0399 



ft 

8DOF- 

AO 

00 


LDY 

mo 

« 


ft 

8D11- 

B9 

40 

85 

LDA 

$8540,Y 

« 

Load the no of OFF bits 

ft 

8D14- 

CD 

99 

03 

CMP 

$0399 



ft 

8D17- 

FO 

5F 


BEQ 

$8D78 

« 


ft 

8D19- 

8D 

01 

03 

STA 

$0301 

« 

Store than in memory-301 

ft 

8D1C- 

8C 

00 

10 

STY 

$1000 

II 

ft 

8D1F- 

AD 

OB 

03 

LDA 

$030B 

II 

Load the centroid(y) in 30B*^ 

8D22- 

8D 

01 

10 

STA 

$1001 

» 


ft 

8D25- 

20 

87 

8D 

JSR 

$8D87 

« 

Find (Y-y) 

ft 

8D28- 

AD 

9C 

03 

LDA 

$039C 

II 


ft 

8D2B- 

8D 

9D 

03 

STA 

$039D 

» 

Stores 0 if positive 

ft 

8D2E- 

AD 

03 

10 

LDA 

$1003 



ft 

8D31- 

8D 

96 

03 

STA 

$0396 

II 

Stores (Y-y) 

ft 

8D34- 

A2 

00 


LDX 

mo 

II 


ft 

8D36- 

B9 

00 

85 

LDA 

$8500,Y 

« 

Loads the first value of X* 

8D39- 

8D 

97 

03 

STA 

$0397 

II 


ft 

8D3C- 

AD 

97 

03 

LDA 

$0397 

« 


ft 

8D3F- 

8D 

00 

10 

STA 

$1000 

ft 


ft 

8D42- 

AD 

OA 

03 

LDA 

$030A 

ft 

Loads the centroid(x) 

ft 

8D45- 

8D 

01 

10 

STA 

$1001 

ft 


ft 

8D48- 

20 

87 

8D 

JSR 

$8D87 

ft 

Finds (X-x) 

ft 

8D4B- 

AD 

9C 

03 

LDA 

$039C 

ft 


ft 

8D4E- 

8D 

9E 

03 

STA 

$039E 

ft 

Stores o if positive 

ft 

8D51- 

AD 

96 

03 

LDA 

$0396 

ft 


ft 

8D54- 

8D 

02 

10 

STA 

$1002 

ft 


ft 

8D57- 

8C 

IE 

03 

STY 

$031E 

II 


ft 

8D5A- 

20 

3D 

8A 

JSR 

$8A3D 

ft 

Finds (X-x)»(Y-y) 

ft 

8D5D- 

AC 

IE 

03 

LDY 

$031E 

II 


ft 

8D60- 

AD 

01 

10 

LDA 

$1001 

ft 


ft 

8D63- 

8D 

03 

03 

STA 

$0303 

ft 

Stores LS'B of the result 

ft 

8D66- 

AD 

00 

10 

LDA 

$1000 

ft 


ft 

8D69- 

8D 

04 

03 

STA 

$0304 

ft 

Stores MSB of the result* 

8D6C- 

20 

05 

8E 

JSR 

$8E05 

ft 

Addition Subroutine 

ft 

8D6F- 

EE 

97 

03 

INC 

$0397 

ft 

Increment value of X 

ft 

8D72- 

E8 



INX 


ft 


ft 

8D73- 

EC 

01 

03 

CPX 

$0301 

ft 

Compare if all Off bits 

ft 

8D76- 

DO 

C4 


BNE 

$8D3C 

ft 

in that row are scanned 

ft 

8D78- 

C8 



INY 


ft 


ft 

8D79- 

CO 

40 


CPY 

#$40 

ft 


ft 

8D7B- 

DO 

94 


BNE 

$8D11 

ft 


ft 

8D7D- 

60 



RTS 


ft 


ft 
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8D81- 

EA 

NOP 


8D82- 

EA 

NOP 


8D83- 

EA 

NOP 


8D84- 

EA 

NOP 


8D85- 

EA 

NOP 


8D86- 

EA 

NOP 


8D87- 

A9 00 

LDA 

#$00 

8D89- 

8D 07 03 

STA 

$0307 

8D8C- 

8D 08 03 

STA 

$0308 

8D8F- 

AD 00 10 

LDA 

$1000 

8D92- 

OA 

ASL 


8D93- 

BO 09 

BCS 

$8D9E 

8D95- 

AD 01 10 

LDA 

$1001 

8D98- 

OA 

ASL 


8D99- 

BO OB 

BCS 

$8DA6 

8D9B- 

4C AB 8D 

JMP 

$8DAB 

8D9E- 

A9 01 

LDA 

#$01 

8M0- 

8D 07 03 

STA 

$0307 

8DA3- 

4C 95 8D 

JMP 

$8D95 

8DA6- 

A9 01 

LDA 

#$01 

8DA8- 

8D 08 03 

STA 

$0308 

8DAB- 

AD 08 03 

LDA 

$0308 

8DAE- 

CD 07 03 

CMP 

$0307 

8DB1- 

FO 27 

BEQ 

$8DDA 

8DB3- 

A9 00 

LDA 

#$00 

8DB5- 

CD 07 03 

CMP 

$0307 

8DB8- 

DO 10 

BNE 

$8DCA 

8DBA- 

38 

SEC 


8DBB- 

AD 01 10 

LDA 

$1001 

8DBE- 

ED 00 10 

SBC 

$1000 

8DC1- 

8D 03 10 

STA 

$1003 

8DC4- 

A9 01 

LDA 

#$01 

8DC6- 

8D 9C 03 

STA 

$0390 

8DC9- 

60 

RTS 


8DCA- 

38 

SEC 


8DCB- 

AD 00 10 

LDA 

$1000 

8DCE- 

ED 01 10 

SBC 

$1001 

8DD1- 

8D 03 10 

STA 

$1003 

8DD4- 

A9 00 

LDA 

#$00 

8DD6- 

8D 9C 03 

STA 

$0390 

8DD9- 

60 

RTS 


8DDA- 

38 

SEC 


8DDB- 

AD 00 10 

LDA 

$1000 

8DDE- 

ED 01 10 

SBC 

$1001 

8DE1- 

30 09 

BMI 

$8DEC 

8i:£3- 

8D 03 10 

STA 

$1003 

8DE6- 

A9 00 

LDA 

#$00 

8DE8- 

8D 90 03 

STA 

$0390 

8DEB- 

60 

RTS 


8DEC- 

E9 FF 

SBC 

#$FF 

8DEE- 

8D 03 10 

STA 

$1003 

8DF1- 

38 

SEC 



« * 

K « 

« % 

« « 

» « 

• Subroutine Subtraction • 

« » 

ft ft 

ft ft 

ft ft 

ft ft 

ft ft 

ft ft 

ft ft 

ft ft 

ft ft 

ft ft 

ft ft 

ft ft 

ft ft 

ft ft 

ft ft 

ft ft 

ft ft 

ft ft 

ft ft 

ft ft 

ft ft 

ft ft 

ft ft 

ft ft 

* Stores 1 if result (-) * 

ft ft 

ft ft 

ft ft 

ft ft 

ft ft 

ft ft 

ft ft 

ft ft 

ft ft 

ft ft 

ft ft 

ft ft 

ft ft 

ft ft 

ft ft 

ft ft 

ft ft 

ft ft 

ft ft 


73 


8DF2- 

A9 

FF 

LDA 

#$FF 


ft 

8DF4- 

ED 

03 10 

SBC 

$1003 

» 

ft 

8DF7- 

8D 

03 10 

STA 

$1003 

ft 

ft 

8IFA- 

EE 

03 10 

INC 

$1003 

ft 

ft 

8DFD- 

A9 

01 

LDA 


ft 

ft 

8DFF- 

8D 

9C 03 

STA 

$039C 

ft 

ft 

8E02- 

60 


RTS 


ft 

ft 

8E03- 

EA 


NOP 


ft 

ft 

8E04-. 

EA 


NOP 


ft 

ft 

8E05- 

AD 

9D 03 

LDA 

$039D 

ftftftftftftftftftftftftftftftftftftftftftftftftftftftftft 

8E08- 

CD 

9E 03 

CMP 

$039E 

ft 

Addition! Subroutine * 

8E0B- 

FO 

IF 

BEQ 

$8E2C 

ft 

If (X-x)»(Y-y) is positive* 

8E0D- 

18 


CLC 


ft 

then store it in $310-312* 

8E0E- 

AD 

13 03 

LDA 

$0313 

ft 

Else in $313-$315 * 

8E11- 

6D 

03 03 

ADC 

$0303 

ftftftftftftftftftftftftftftftftftftftftftftftftftftftftft 

8E14- 

8D 

13 03 

STA 

$0313 

ft 

ft 

8E17- 

90 

03 

BCC 

$8E1C 

ft 

ft 

8E19- 

EE 

14 03 

INC 

$0314 

ft 

ft 

8E1C- 

18 


CLC 


ft 

ft 

8E1D- 

AD 

14 03 

LDA 

$0314 

ft 

ft 

8E20- 

6D 

04 03 

ADC 

$0304 

ft 

ft 

8E23- 

8D 

14 03 

STA 

$0314 

ft 

ft 

8E26- 

90 

03 

BCC 

$8E2B 

ft 

ft 

8E28- 

EE 

15 03 

INC 

$0315 

ft 

ft 

8E2B- 

60 


RTS 


ft 

ft 

8E2C- 

18 


CLC 


ft 

ft 

8E2D- 

AD 

10 03 

LDA 

$0310 

ft 

ft 

8E30- 

6D 

03 03 

ADC 

$0303 

ft 

ft 

8E33- 

8D 

10 03 

STA 

$0310 

ft 

ft 

8E36- 

90 

03 

BCC 

$8E3B 

ft 

ft 

8E38- 

EE 

11 03 

INC 

$0311 

ft 

ft 

8E3B- 

18 


CLC 


ft 

ft 

8E3C- 

AD 

11 03 

LDA 

$0311 

ft 

ft 

8E3F- 

6D 

04 03 

ADC 

$0304 

ft 

ft 

8E42- 

8D 

11 03 

STA 

$0311 

ft 

ft 

8E45- 

90 

03 

BCC 

$8E4A 

ft 

ft 

8E47- 

EE 

12.03 

INC 

$0312 

ft 

ft 

8E4A- 

60 


RTS 


ft 

ft 
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APPENDIX D 


This appendix deals with ’Image Recognition’. It finds 
nine gecmetric paraneters which are independent of scale, 
position and rotation. 

A uniqueness theor«n(Papoulis,1965) states that if F(x,y) 
is piecewise continuous and has nonzero values only in the finite 
part of the x-y plane, then moments of all orders exist and the 
moment sequence is uniquely determined by F(x,y). 

To find descriptors which are invariant in translation, 
rotation and size, subroutines ’CAMASM’, ’ROW’, ’COL’, ’CENTER*, 
’PERI’ and ’SEVEN' should be executed. These machine language 
routines return within 1-2 seconds the area, perimeter, and 
second and third central moments to the BASIC. 

The BASIC routine normalizes thes moments in order to 
compute the normalized central moments. 

The normalized central moments denoted by Nab,' are defined as:- 

Nab = Iab/(A**L) 

where a and b are subjected to the following constraints: 

a,b = 0 or 1 or 2 or 3; and a+-b = 2 or 3 

A = area of the image and L = ai-b/2 + 1 

111 = Ixy ; 112 = Ixyy ; 102 = lyy ; 103 = lyyy ; 

120 = Ixx ; 121 = Ixxy ; 130 = Ixxx ; 
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where Ixx,Iyy,Ixy,Ixxx,Iyyy,Ixyy,Ixxy are the second and third 
central moments as defined in the program description of ‘SEVEN*. 

From the second and third moments a set of seven 
parameters can be derived. They are given by:- 
P1 = N20 + N02 

P2 = (N20-N02)**2 + 4«N11**2 
P3 = R1**2 + R2»»2 
P4 = R3*»2 + R4»*2 

P5 = R1*R3*(R3**2-3*R4*^2) + R2*tR4»(3»R3**2-R4»»2) 

P6 = (N20-N02)»(R3**2-R4*»2) + 4»N'n*R3*R4 

P7 = R2»R4»(3»R3**2-R4»*2) - R1»R3»(R3**2-3*R4*»2) 

This set of moments has been shown to be invariant to 
translation, rotation and scale change. 

Two more parameters, defined as Elongation Ratio and 
Compactness Ratio, can be easily derived fhom the available 
information. 

P8 = (Elongation Ratio) = Imax/Imin 

where Iraax and Imin are are the principle moments about the 
major and minor axis and can be easily related to the above 
paraneters. 

Iznax = PI/2 + SQRT(P2)/2 ; . and Imin = PI/2 + SQRT(P2)/2 ; 

P9 = (Compactness Ratio) = (perimeter)**2/(area) 


The description and the program listing of ‘SEVEN*, 




’CENTER* and ’PERI’, which play an important role in deriving 
these parameters is given. 
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ASSEMBLY ROUTINE” CEIirER” 

This routine calculates the area of the image in the 
terms of no, of OFF bits. Then it calculates the centroid of 
the object. 

1) Calculation of the area: 

Run the M/C progran "ROVT* and then 
this part of the routine just adds the no. of 
memory location $8540-$857F and stores the area in $343(LSB) and 
$344(MSB). 

2) Calculation of the Centroid: 

Run the "COL" and "ROW" 
routines. Then scan the memory that stores the no, of OFF bits 
row by row and add them up. Stop searching as soon as the sum is 
equal to half the area . Store the value of the row in $30A. 
this gives the y coordinate of the centroid. 

Similarly search the memory that stores the no. 
of OFF bits colimn by column. Stop as soon as the sun is equal 
to half the area. Store the colunn nunber in $30B,which gives 
the X coordinate of the centroid. 







ASSEMBLY LISTING OF"CENTER” 


8C00- A2 00 

8C02- 8E 3E 03 

8C05- 8E 3F 03 

8C08- 18 

8C09- BD 40 85 

8C0C- 6D 3E 03 

8C0F- 8D 3E 03 

8C12- 90 03 

8C14- EE 3F 03 

8C17- E8 

8C18- EO 40 

8C1A- DO EC 

8C1C- AD 3E 03 

8C1F- 8D 90 03 

8C22- AD 3F 03 

8C25- 8D 91 03 

8C28- 18 

8C29- 4E 90 03 

8C2C- 6E 91 03 

8C2F- 90 09 

8C31- 18 

8C32- A9 80 

8C34- 6D 90 03 

8C37- 8D 90 03 

8C3A- 20 12 87 

8C3D- 20 4D 8C 

8C40-. 8E OB 03 

8C43- 20 FO 86 

8C46- 20 4D 8C 

8C49- 8E OA 03 

8C4C 60 

8C4D- A2 00 

8C4F- 8E 8E 03 

8C52- 8E 8F 03 

8C55- 18 

8C56- BD 00 8A 

8C59- 6D 8E 03 

8C5C- 8D 8E 03 

8C5F- 90 03 

8C61- EE 8F 03 

8C64- AD 8F 03 

8C67- CD 91 03 

8C6A- FO 04 

8C6C- E8 

8C6D- 4C 55 8C 

8C70- AD 90 03 

8C73- BD 46 03 

8C76- OA 


LDX 

#$00 


STX 

$033E 

« 

STX 

$033F 


CLC 



LDA 

$8540,X 

* 

ADC 

$033E 


STA 

$033E 

• 

BCC 

$8C17 

ft 

INC 

$033F 

ft 

INX 


ft 

CPX 

tf$40 

ft 

BNE 

$8C08 

ft 

LDA 

$033E 

ft 

STA 

$0390 

ft 

LDA 

$033F 

ft 

STA 

$0391 

ft 

CLC 


ft 

LSR 

$0390 

ft 

ROR 

$0391 

ft 

BCC 

$8C3A 

ft 

CLC 


ft 

LDA 

#$80 

ft 

ADC 

$0390 

ft 

STA 

$0390 

ft 

JSR 

$8712 

ft 

JSR 

$8C4D 

ft 

STX 

$030B 

ft 

JSR 

$86F0 

ft 

JSR 

$8C4D 

ft 

STX 

$030A 

ft 

RTS 


ft 

LDX 

#$00 

ft 

STX 

$03 8E 

ft 

STX 

$038F 

ft 

CLC 


ft 

LDA 

$8A00,X 

ft 

ADC 

$038E 

ft 

STA 

$038E 

ft 

BCC 

$8C64 

ft 

INC 

$038F 

ft 

LDA 

$038F 

ft 

CMP 

$0391 

ft 

BEQ 

$8C70 

ft 

INX 


ft 

JMP 

$8C55 

ft 

LDA 

$0390 

ft 

STA 

$0346 

ft 

ASL 


ft 
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8C77- 

90 IE 

BCG 

$8C97 


8C79- 

38 

SEC 


« 

8C7A- 

A9 7F 

LDA 

WF 

« 

8C7C- 

ED 8E 03 

SBC 

$038E 

« 

8C7F- 

30 06 

BMI 

$8C87 


8C81- 

20 A7 8C 

JSR 

$8CA7 

* 

8C84- 

4C 79 8C 

JMP 

$8C79 


8C87- 

AD 8E 03 

LDA 

$038E 

* 

8C8A- 

29 7F 

AND 

//$7F 


8C8C- 

8D 8E 03 

STA 

$038E 

* 

8C8F- 

AD 46 03 

LDA 

$0346 

n 

8C92- 

29 7F 

AND 

#$7F 

n 

8C94- 

8D 46 03 

STA 

$0346 


8C97- 

38 

SEC 



8C98- 

AD 46 03 

LDA 

$0346 


8C9B- 

ED 8E 03 

SBC 

$038E 

* 

8C9E- 

30 06 

BMI 

$8CA6 

» 

8CA0- 

20 A7 8C 

JSR 

$8CA7 

* 

8CA3- 

4C 97 8C 

JMP 

$8C97 

* 

8CA6- 

60 

RTS 


« 

8CA7-- 

E8 

INX 


tt 

8CA8- 

18 

CLC 


« 

8CA9- 

BD 00 8A 

LDA 

$8A00,X 


8CAC- 

6D 8E 03 

ADC 

$038E 

* 

8CAF- 

8D 8E 03 

STA 

$038E 

* 

8CB2- 

60 

RTS 








ASSEMBLY ROUTINE”PERI'* 


This M/C progran calculates one half of the 
perimeter of the image.lt does this in two steps. 

Firstly it searches the memory $8540-$857F which stores the 
no. of CFF bits in every row. Thus it calculates the no. of 
rows that have atleast one OFF bit. It saves this result in 
$3A1. 

Then it searches the memory area($88D0-89C5) which store 
the no. of OFF bits in every colimn. Then it looks for the no. 
of colunns which have atleast one OFF bit. This result is saved 
in $3A2, 

So $3A1 gives the vertical span of the image while $3A2 
gives the horizontal span in terms of no. of OFF bits. 

"ROW” and "COL" M/C progran should be executed 
before running this routine. 










PROGRAM LISTING OF PERI 


03AE- 

A2 00 

LDX 

mo 


03B0- 

A9 00 

LDA 

mo 


03B2- 

8D A1 03 

STA 

$03A1 

* 

03B5- 

8D A2 03 

STA 

$03A2 

ft 

03B8- 

BD 40 85 

LDA 

$8540,X 

ft 

03BB- 

FO 03 

BEQ 

$03CO 

ft 

03BD- 

EE A1 03 

INC 

$03A1 

ft 

03C0- 

E8 

INX 


ft 

03C1- 

EO 40 

CPX 

#$40 

ft 

03C3- 

DO F3 

BNE 

$03B8 

ft 

03C5- 

A2 00 

LDX 

#$00 

ft 

03C7- 

BD DO 88 

LDA 

$88D0,X 

ft 

03CA- 

FO 03 

BEQ 

$03CF 

ft 

03CC- 

EE A2 03 

INC 

$03A2 

ft 

03CF- 

E8 

INX 


ft 

03D0- 

EO F5 

CPX 

ms 

ft 

03 D 2 - 

DO F3 

BNE 

$03C7 

ft 

0304- 

60 

RTS 


ft 





ASSEMBLY ROUTINE"SEVEN” 


This is one of the most powerful machine language 
progran, which is capable of calculating central moments of the 
image upto third order. 

It can calculate the following moments:- 


1) 

X 

1 

X 

LO 

(Ixxx) 

2) 

(Y-y)*»3 

(lyyy) 

3) 

(X-x)»»2*(Y-y) 

(Ixxy) 

il) 

(X-x)*(Y-y)»*2 

(Ixyy) 

5) 

(X-x)*»2 

(Ixx) 

6) 

(Y-y)»»2 

(lyy) 

7) 

(X-x)»(Y-y) 

(Ixy) 


where x and y are the coordinates of the centroid of 

the image. 

It is essential to run ”CAMASM*',”ROVr* and "CENTER" before 
executing this routine. 

The main subroutines of this program are as follows:- 

1) JSR 8CC0 * Standard 8 bit Multiplication routine 

2) JSR 8D87 * Subtraction subroutine which keeps track of 

* negative result as well 

3) JSR 8E05 * This subroutine is responsible for calculating 

* all the seven paraneters. It does this with 

* the help of the following subroutines, 

3a) JSR 8E70 * Calculates the square of a ntmber 

3b) JSR 8E8A * Multiple byte multiplication 
3c) JSR 8EC2 * Adds and stores Ixy 
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MEMORY MAP 

$301 * Stores the of CFF bits in a row. 

$ 303-304 » Temp, storage from 8-bit mialtiplication. 

$30A * Stores the x coordinate of the centroid. 

$30B * Stores the y coordinate of the centroid. 

$30E-311 * Temp, stor^e from JSR 8E8A 

$340-342 * Stores positive result of Ixy 

$ 343-345 * Stores negative result of Ixy 

$346-348 * Stores result of lyy 
$349-34C * Stores positive result of lyyy 
$34D-350 * Stores negative result of lyyy 

$351-354 * Stores positive result of Ixyy 

$355-358 * Stores negative result of Ixyy 

$359-35C * Stores positive result of Ixxx 
$35C-360 * Stores negative result of Ixxx 

$361-364 * Stores positive result of Ixxy 

$365-368 * Stores negative result of Ixxy 
$369-366 * Stores result of Ixx 

Note that significance of a byte for a particular storage 
is in the ascending order. For exanple in the case of lyy the 
most significant byte(MSB) is $348 and the least significant(LSB) 
one is $346 
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PROGRAM LISTING OF SEVEN 


8CC0- 

AO 08 


LDY 

#$08 

• 

8CC2- 

A9 00 


LDA 

#$00 


8CC4- 

8D 

00 

10 

STA 

$1000 

• 

8CC7- 

8D 

01 

10 

STA 

$1001 

• 

8CCA- 

OA 



ASL 


* 

8CCB- 

2E 

00 

10 

ROL 

$1000 

* 

8CCE- 

OE 

03 

10 

ASL 

$1003 

• 

8CD1- 

90 

09 


BCC 

$8CDC 


8CD3- 

18 



CLC 



8CD4- 

6D 

02 

10 

ADC 

$1002 

It 

8CD7- 

90 

03 


BCC 

$8CDC 

ft 

8CD9- 

EE 

00 

10 

INC 

$1000 

ft 

8CDC- 

88 



DEY 


ft 

8CDD- 

DO 

EB 


BNE 

$8CCA 

ft 

8CDF- 

8D 

01 

10 

STA 

$1001 

ft 

8CE2- 

60 



RTS 


ft 

8D00- 

A9 

00 


LDA 

#$00 

ft 

8D02- 

A2 

00 


LDX 

#$00 

ft 

8D04- 

9D 40 

03 

STA 

$0340,X 

ft 

8D07- 

E8 



INX 


ft 

8D08- 

EO 

2F 


CPX 

#$2F 

ft 

8D0A- 

DO F8 


BNE 

$8D04 

ft 

8D0C- 

8D 99 

03 

STA 

$0399 

ft 

8DCF- 

AO 

00 


LDY 

#$00 

ft 

8D11- 

B9 40 

85 

LDA 

$8540,Y 

ft 

8D14- 

CD 99 

03 

CMP 

$0399 

ft 

8D17- 

FO 

50 


BEQ 

$8D69 

ft 

8D19- 

8D 

01 

03 

STA 

$0301 

ft 

8D1C- 

8C 

00 

10 

STY 

$1000 

ft 

8D1F- 

AD OB 03 

LDA 

$030B 

ft 

8D22- 

8D 

01 

10 

STA 

$1001 

ft 

8D25- 

20 87 

8D 

JSR 

$8D87 

ft 

8D28- 

AD 

9C 

03 

LDA 

$039C 

ft 

8D2B- 

8D 

9D 

03 

STA 

$039D 

ft 

8D2E- 

AD 

03 

10 

LDA 

$1003 

ft 

8D31- 

8D 96 03 

STA 

$0396 

ft 

8D34- 

A2 

00 


LDX 

#$00 

ft 

8D36- 

B9 00 

85 

LDA 

$8500,Y 

ft 

8D39- 

8D 

97 

03 

STA 

$0397 

ft 

8D3C- 

AD 97 

03 

LDA 

$0397 

ft 

8D3F- 

8D 

00 

10 

STA 

$1000 

ft 

8D42- 

AD OA 03 

LDA 

$030A 

ft 

8D45- 

8D 

01 

10 

STA 

$1001 

ft 

8D48- 

20 

87 

8D 

JSR 

$8D87 

ft 

8D4B- 

AD 

9C 

03 

LDA 

$039C 

ft 

8D4E- 

8D 

9E 

03 

STA 

$039E 

ft 

8D51- 

AD 03 

10 

LDA 

$1003 

ft 

8D54- 

8D 90 03 

STA 

$0390 

ft 


lu v»* mSa 
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8D57- 

8 C IE 03 

STY 

$031E 

* 

8D5A- 

20 05 8E 

JSR 

$8E05 


8D5D- 

AC IE 03 

LDY 

$031E 

» 

8D60- 

EE 97 03 

INC 

$0397 

ft 

8D63- 

E8 

INX 


ft 

8D64- 

EC 01 03 

CPX 

$0301 

ft 

8 D6T- 

DO D3 

BNE 

$8D3C 

ft 

8D69- 

C8 

INY 


ft 

8 D6A- 

CO 40 

CPY 

mo 

ft 

8 D6C- 

DO A3 

BNE 

$8D11 

ft 

8 D6E- 

60 

RTS 


ft 

8 D6F- 

EA 

NOP 


ft 

8D70- 

EA 

NOP 


ft 

8D71- 

EA 

NOP 


ft 

8D72- 

EA 

NOP 


ft 

8D73- 

EA 

NOP 


ft 

8D74- 

EA 

NOP 


ft 

8D75- 

EA 

NOP 


ft 

8D76- 

EA 

NOP 


ft 

8D77~ 

EA 

NOP 


ft 

8D78- 

EA 

NOP 


ft 

8D79- 

EA 

NOP 


ft 

8D7A- 

EA 

NOP 


ft 

8D7B- 

EA 

NOP 


ft 

8D7C- 

EA 

NOP 


ft 

8D7D- 

EA 

NOP 


ft 

8D7E- 

EA 

NOP 


ft 

8D7F- 

EA 

NOP 


ft 

8D80- 

EA 

NOP 


ft 

8D81- 

EA 

NOP 


ft 

8D82- 

EA 

NOP 


ft 

8D83- 

EA 

NOP 


ft 

8D84- 

EA 

NOP 


ft 

8D85- 

EA 

NOP 


ft 

8 D86- 

EA 

NOP 


ft 

8D87- 

A9 00 

LDA 

#$00 

ft 

8D89- 

8 D 07 03 

STA 

$0307 

ft 

8 D8C- 

8 D 08 03 

STA 

$0308 

ft 

8 D8F- 

AD 00 10 

LDA 

$1000 

ft 

8D92- 

OA 

ASL 


ft 

8D93" 

BO 09 

BCS 

$8D9E 

ft 

8D95- 

AD 01 10 

LDA 

$1001 

ft 

8D98- 

OA 

ASL 


ft 

8D99- 

BO OB 

BCS 

$8DA6 

ft 

8D9B- 

4C AB 8D 

JMP 

$8DAB 

ft 

8D9E- 

A9 01 

LDA 

#$01 

ft 

8DA0- 

8 D 07 03 

STA 

$0307 

ft 

8DA3- 

4C 95 8D 

JMP 

$8D95 

ft 

8 DA6- 

A9 01 

LDA 

#$01 

ft 

8 DA8- 

8 D 08 03 

STA 

$0308 

ft 

8 DAB- 

AD 08 03 

LDA 

$0308 

ft 

8 DAE- 

CD 07 03 

CMP 

$0307 

ft 



87 


8DB1- 

FO 

27 


BEQ 

$8DDA 

• 

8DB3- 

A9 

00 


LDA 

#$00 

« 

8DB5- 

CD 

07 

03 

CMP 

$0307 

ft 

8 DB8- 

DO 

10 


BNE 

$8DCA 

ft 

8 DBA- 

38 



SEC 


ft 

8 DBB- 

AD 

01 

10 

LDA 

$1001 

ft 

8 DBE- 

ED 

00 

10 

SBC 

$1000 

ft 

8DC1- 

8 D 

03 

10 

STA 

$1003 

ft 

8DC4- 

A9 

01 


LDA 

#$01 

ft 

8 DC6- 

8 D 

9C 

03 

STA 

$039C 

ft 

8DC9- 

60 



RTS 


ft 

8 DCA-. 

38 



SEC 


ft 

8 DCB- 

AD 

00 

10 

LDA 

$1000 

ft 

8 DCE- 

ED 

01 

10 

SBC 

$1001 

ft 

8DD1- 

8 D 

03 

10 

STA 

$1003 

ft 

8DD4- 

A9 

00 


LDA 

#$00 

ft 

8 DD6- 

8 D 

9C 

03 

STA 

$039C 

ft 

8DD9“ 

60 



RTS 


ft 

8 DDA- 

38 



SEC 


ft 

8 DDB- 

AD 

00 

10 

LDA 

$1000 

ft 

8 DDE- 

ED 

01 

10 

SBC 

$1001 

ft 

SEEI- 

30 

09 


BMI 

$8DEC 

ft 

8DE3- 

8 D 

03 

10 

STA 

$1003 

ft 

8 DE6- 

A9 

00 


LDA 

#$00 

ft 

8 DE8- 

8 D 

9C 

03 

STA 

$039C 

ft 

8 DEB- 

60 



RTS 


ft 

8 DEC- 

E9 

FF 


SBC 

#$FF 

ft 

8 DEE- 

8 D 

03 

10 

STA 

$1003 

ft 

8DF1- 

38 



SEC 


ft 

81^2- 

A9 

FF 


LDA 

#$FF 

ft 

8DF4- 

ED 

03 

10 

SBC 

$1003 

ft 

8DF7- 

8 D 

03 

10 

STA 

$1003 

ft 

8 DFA- 

EE 

03 

10 

INC 

$1003 

ft 

8 EFD- 

A9 

01 


LDA 

#$01 

ft 

8 DFF- 

8 D 

9C 

03 

STA 

$039C 

ft 

8E02- 

60 



RTS 


ft 

8E03- 

EA 



NOP 


ft 

8E04- 

EA 



NOP 


ft 

8E05- 

AD 

96 

03 

LDA 

$0396 

ft 

8E08- 

8 D 

02 

10 

STA 

$1002 

ft 

8E0B- 

AD 

90 

03 

LDA 

$0390 

ft 

8E0E- 

8 D 

03 

10 

STA 

$1003 

ft 

8E11- 

20 

CO 

8 C 

JSR 

$8CC0 

ft 

8E14- 

AD 

01 

10 

LDA 

$1001 

ft 

8E17- 

8 D 

03 

03 

STA 

$0303 

ft 

8E1A- 

AD 

00 

10 

LDA 

$1000 

ft 

8E1D- 

8 D 

04 

03 

STA 

$0304 

ft 

8E20- 

20 

C2 

8 E 

JSR 

$8EC2 

ft 

8E23- 

AD 

96 

03 

LDA 

$0396 

ft 

8E26- 

8 D 

FF 

03 

STA 

$03FF 

ft 

8E29- 

20 

70 

8 E 

JSR 

$8E70 

ft 

8E2C- 

20 

18 

8 F 

JSR 

$S^18 

ft 


ftrtf S'/*.** *?£* fWA 
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8E2F- 

AD 96 03 

L,DA 

$0396 

ft 

8E32- 

8 D FE 03 

STA 

$03FE 

ft 

8E35- 

20 8A 8E 

JSR 

$8E8A 

ft 

8E38~ 

20 40 8F 

JSR 

$8F40 

ft 

8E3B- 

AD 90 03 

LDA 

$0390 

ft 

8E3E- 

8 D FE 03 

STA 

$03FE 

ft 

8E41- 

20 8A 8E 

JSR 

$8E8A 

ft 

8E44- 

20 FO 8F 

JSR 

$8FF0 

ft 

8E47- 

AD 90 03 

LDA 

$0390 

ft 

8E4A- 

8 D FF 03 

STA 

$03FF 

ft 

8E4D- 

20 70 8E 

JSR 

$8E70 

ft 

8E50- 

20 00 92 

JSR 

$9200 

ft 

8E53- 

AD 90 03 

LDA 

$0390 

ft 

8E56- 

8 D FE 03 

STA 

$03FE 

ft 

8E59- 

20 8A 8E 

JSR 

$8E8A 

ft 

8E5C- 

20 AO 90 

JSR 

$90A0 

ft 

8E5F- 

AD 96 03 

LDA 

$0396 

ft 

8E62- 

8 D FE 03 

STA 

$03FE 

ft 

8E65- 

20 8A 8E 

JSR 

$8E8A 

ft 

8 E68- 

20 50 91 

JSR 

$9150 

ft 

8 E6B- 

60 

RTS 


ft 

8 E6C- 

EA 

NOP 


ft 

8 E6D- 

EA 

NOP 


ft 

8 E6E- 

EA 

NOP 


ft 

8 E6F- 

EA 

m? 


ft 

8E70- 

AD FF 03 

LDA 

$03FF 

ft 

8E73- 

8 D 02 10 

STA 

$1002 

ft 

8E76- 

8 D 03 10 

STA 

$1003 

ft 

8E79- 

20 CO 8C 

JSR 

$8CC0 

ft 

8E7C- 

AD 01 10 

LDA 

$1001 

ft 

8E7F- 

8 D 03 03 

STA 

$0303 

ft 

8E82- 

AD 00 10 

LDA 

$1000 

ft 

8E85- 

8 D 04 03 

STA 

$0304 

ft 

8 E88- 

60 

RTS 


ft 

8E89- 

EA 

NOP 


ft 

8 E8A- 

AD 04 03 

LDA 

$0304 

ft 

8 E8D- 

8 D 02 10 

STA 

$1002 

ft 

8E90- 

AD FE 03 

LDA 

$03FE 

ft 

8E93- 

8 D 03 10 

STA 

$1003 

ft 

8E96- 

20 CO 8C 

JSR 

$8CC0 

ft 

8E99- 

AD 00 10 

LDA 

$1000 

ft 

8E9C- 

8 D 11 03 

STA 

$0311 

ft 

8E9F- 

AD 01 10 

LDA 

$1001 

ft 

8EA2- 

8 D 10 03 

STA 

$0310 

ft 

8EA5- 

AD 03 03 

LDA 

$0303 

ft 

8 EA8- 

8 D 02 10 

STA 

$1002 

ft 

8 EAB- 

AD FE 03 

LDA 

$03FE 

ft 

8 EAE- 

8 D 03 10 

STA 

$1003 

ft 

8EB1- 

20 CO 8C 

JSR 

$8CC0 

ft 

8EB4- 

AD 00 10 

LDA 

$1000 

ft 

8EE7- 

8 D OF 03 

STA 

$030F 

ft 

8 EBA- 

AD 01 10 

LDA 

$1001 

ft 


ij 


\S nn 



SEBD- 

8 D OE 03 

STA 

$030E 

• 

8EC0- 

60 

RTS 



8EC1- 

EA 

NOP 


« 

8EC2- 

AD 9D 03 

LDA 

$039D 

* 

8EC5- 

CD 9E 03 

CMP 

$039E 

ft 

8 EC8- 

DO 27 

6 NE 

$8EF1 

ft 

8 ECA- 

18 

CLC 


ft 

8 ECB- 

AD 03 03 

LDA 

$0303 

ft 

8 ECE- 

6 D 40 03 

ADC 

$0340 

ft 

8ED1- 

8 D 40 03 

STA 

$0340 

ft 

8ED4- 

90 OB 

BCC 

$8EE1 

ft 

8 ED6- 

EE 41 03 

INC 

$0341 

ft 

8ED9- 

AD 41 03 

LDA 

$0341 

ft 

8 EDC- 

DO 03 

BNE 

$8EE1 

ft 

8 EDE- 

EE 42 03 

INC 

$0342 

ft 

8EE1- 

18 

CLC 


ft 

8EE2- 

AD 04 03 

LDA 

$0304 

ft 

8EE5- 

6 D 41 03 

ADC 

$0341 

ft 

8 EE8- 

8 D 41 03 

STA 

$0341 

ft 

8 EEB- 

90 03 

BCC 

$8EF0 

ft 

8 EED- 

EE 42 03 

INC 

$0342 

ft 

8EF0- 

60 

RTS 


ft 

8EF1- 

18 

CLC 


ft 

8EF2- 

AD 03 03 

LDA 

$0303 

ft 

8EF5- 

6 D 43 03 

ADC 

$0343 

ft 

8 EF8- 

8 D 43 03 

STA 

$0343 

ft 

8 EFB- 

90 OB 

BCC 

$8F08 

ft 

8 EFD- 

EE 44 03 

INC 

$0344 

ft 

8F00- 

AD 44 03 

LDA 

$0344 

ft 

8F03- 

DO 03 

BNE 

$8F08 

ft 

8F05- 

EE 45 03 

INC 

$0345 

ft 

8F08- 

18 

CLC 


ft 

8F09- 

AD 04 03 

LDA 

$0304 

ft 

8F0C- 

6 D 44 03 

ADC 

$0344 

ft 

8F0F- 

8 D 44 03 

STA 

$0344 

ft 

8F12- 

90 03 

BCC 

$8F17 

ft 

8F14- 

EE 45 03 

INC 

$0345 

ft 

8F17- 

60 

RTS 


ft 

8F18- 

18 

CLC 


ft 

8F19- 

AD 46 03 

LDA 

$0346 

ft 

8F1C- 

6 D 03 03 

ADC 

$0303 

ft 

8F1F- 

8 D 46 03 

STA 

$0346 

ft 

8F22- 

90 OB 

BCC 

$8F2F 

ft 

8F24- 

EE 47 03 

INC 

$0347 

ft 

8F27- 

AD 47 03 

LDA 

$0347 

ft 

8F2A- 

DO 03 

BNE 

$8F2F 

ft 

8F2C- 

EE 48 03 

INC 

$0348 

ft 

8F2F- 

18 

CLC 


ft 

8F30-* 

AD 47 03 

LDA 

$0347 

ft 

8F33- 

6 D 04 03 

ADC 

$0304 

ft 

8F36- 

8 D 47 03 

STA 

$0347 

ft 

8F39- 

90 03 

BCC 

$8F3E 

ft 






8F3B- 

EE 48 03 

INC 

$0348 

8F3E- 

60 

RTS 


8F3F- 

EA 

NOP 


8FnO- 

AD 9D 03 

LDA 

$039D 

8F43- 

DO 55 

BNE 

$8F9A 

8F45- 

18 

CLC 


8Fil6- 

AD OE 03 

LDA 

$030E 

8F49- 

6D 49 03 

ADC 

$0349 

8FiiC- 

8D 49 03 

STA 

$0349 

8F4F- 

90 OB 

BCC 

$8F5C 

8F51- 

EE 4A 03 

INC 

$034A 

8F54- 

AD 4A 03 

LDA 

$034A 

8F57- 

DO 03 

BNE 

$8F5C 

8F59- 

EE 4B 03 

INC 

$034B 

8F5C- 

18 

CLC 


8F5D- 

AD OF 03 

LDA 

$030F 

8F60- 

6D 4A 03 

ADC 

$034A 

8F63- 

8D 4A 03 

STA 

$034A 

8F66- 

90 OB 

BCC 

$8F73 

8F68- 

EE 4B 03 

INC 

$034B 

8F6B- 

AD 4B 03 

LDA 

$034B 

8F6E- 

DO 03 

BNE 

$8F73 

8F70- 

EE 4C 03 

INC 

$034C 

8F73- 

18 

CLC 


8F74- 

AD 10 03 

LDA 

$0310 

8F77- 

6D 4A 03 

ADC 

$034A 

8F7A- 

8D 4A 03 

STA 

$034A 

8F7D- 

90 OB 

BCC 

$8F8A 

8F7F- 

EE 4B 03 

INC 

$034B 

8F82- 

AD 4B 03 

LDA 

$034B 

8F85- 

DO 03 

BNE 

$8F8A 

8F87- 

EE 4C 03 

INC 

$034C 

8F8A- 

18 

CLC 


8F8B- 

AD 11 03 

LDA 

$0311 

8F8E- 

6D 4B 03 

ADC 

$034B 

8F91- 

8D 4B 03 

STA 

$034B 

8F94- 

90 03 

BCC 

$8F99 

8F96- 

EE 4C 03 

INC 

$034C 

8F99- 

60 

RTS 


8F9A- 

18 

CLC 


8F9B- 

AD OE 03 

LDA 

$030E 

8F9E- 

6D 4D 03 

ADC 

$034D 

8FA1- 

8D 4D 03 

STA 

$034D 

8FA4- 

90 OB 

BCC 

$8FB1 

8FA6- 

EE 4E 03 

INC 

$034E 

8FA9- 

AD 4E 03 

LDA 

$034E 

8FAC- 

DO 03 

BNE 

$8FB1 

8FAE- 

EE 4F 03 

INC 

$034F 

8FB1- 

18 

CLC 


8FB2- 

AD OF 03 

LDA 

$030F 

8FB5- 

6D 4E 03 

ADC 

$034E 

8FB8- 

8D 4E 03 

STA 

$034E 
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8 FBB- 

90 

OB 


BCC 

$8FC8 

• 

8 FBD- 

EE 

4F 

03 

INC 

$034F 

• 

8FC0- 

AD 

4F 

03 

LDA 

$034F 

» 

8FC3- 

DO 

03 


BNE 

$8FC8 

# 

8FC5- 

EE 

50 

03 

INC 

$0350 

« 

8 FC8- 

18 



CLC 


« 

8FC9- 

AD 

10 

03 

LDA 

$0310 

• 

8 FCC- 

6 D 

4E 

03 

ADC 

$034E 


8 FCF- 

8 D 

4E 

03 

STA 

$034E 

• 

8FD2- 

90 

OB 


BCC 

$8FDF 


8FD4- 

EE 

4F 

03 

INC 

$034F 

« 

8FD7- 

AD 

4F 

03 

LDA 

$034F 

« 

8 FDA- 

DO 

03 


BNE 

$8FrF 


8 FDC- 

EE 

50 

03 

INC 

$0350 

« 

8 FEF- 

18 



CLC 


ft 

8FE0- 

AD 

11 

03 

LDA 

$0311 

« 

8FE3- 

6 D 

4F 

03 

ADC 

$034F 

* 

8 FE6- 

8 D 

4F 

03 

STA 

$034F 

« 

8FE9- 

90 

03 


BCC 

$8FEE 

ft 

8 FEB- 

EE 

50 

03 

INC 

$0350 

ft 

8 FEE- 

60 



RTS 


ft 

8 FEF- 

EA 



NOP 


ft 

8FF0- 

AD 

9E 

03 

LDA 

$039E 

ft 

8FF3- 

DO 

55 


BNE 

$904A 

ft 

8FF5- 

18 



CLC 


ft 

8 FF6- 

AD 

OE 

03 

LDA 

$030E 

ft 

8FF9- 

6 D 

51 

03 

ADC 

$0351 

ft 

8 FFC- 

8 D 

51 

03 

STA 

$0351 

ft 

8 FFF- 

90 

OB 


BCC 

$900C 

ft 

9001- 

EE 

52 

03 

INC 

$0352 

ft 

9004- 

AD 

52 

03 

LDA 

$0352 

ft 

9007- 

DO 

03 


BNE 

$900C 

ft 

9009- 

EE 

53 

03 

INC 

$0353 

ft 

900C- 

18 



CLC 


ft 

900D- 

AD 

OF 

03 

LDA 

$030F 

ft 

9010- 

6 D 

52 

03 

ADC 

$0352 

ft 

9013- 

8 D 

52 

03 

STA 

$0352 

ft 

9016- 

90 

OB 


BCC 

$9023 

ft 

9018- 

EE 

53 

03 

INC 

$0353 

ft 

901B- 

AD 

53 

03 

LDA 

$0353 

ft 

901 E- 

DO 

03 


BNE 

$9023 

ft 

9020 - 

EE 

54 

03 

INC 

$0354 

ft 

9023- 

18 



CLC 


ft 

9024- 

AD 

10 

03 

LDA 

$0310 

ft 

9027- 

6 D 

52 

03 

ADC 

$0352 

ft 

902A- 

8 D 

52 

03 

STA 

$0352 

ft 

902D- 

90 

OB 


BCC 

$903A 

ft 

902F- 

EE 

53 

03 

INC 

$0353 

ft 

9032- 

AD 

53 

03 

LDA 

$0353 

ft 

9035- 

DO 

03 


BNE 

$903A 

ft 

9037- 

EE 

54 

03 

INC 

$0354 

ft 

903A- 

18 



CLC 


ft 













EE 60 03 














913F- 

18 


CLC 


9140- 

AD 11 

03 

LDA 

$0311 

9143- 

6 D 5F 03 

ADC 

$035F 

9146- 

8 D 5F 

03 

STA 

$035F 

9149- 

90 03 


BCC 

$914E 

914B- 

EE 60 

03 

INC 

$0360 

914E- 

60 


RTS 


914F- 

EA 


NOP 


9150- 

AD 9D 

03 

LDA 

$039D 

9153- 

DO 55 


BNE 

$91AA 

9155- 

18 


CLC 


9156- 

AD OE 

03 

LDA 

$030E 

9159- 

6 D 61 

03 

ADC 

$0361 

915C- 

8 D 61 

03 

STA 

$0361 

915F- 

90 OB 


BCC 

$916C 

9161 - 

EE 62 

03 

INC 

$0362 

9164- 

AD 62 

03 

LDA 

$0362 

9167- 

DO 03 


BNE 

$916C 

9169- 

EE 63 

03 

INC 

$0363 

916C- 

18 


CLC 


916D- 

AD OF 03 

LDA 

$030F 

9170- 

6 D 62 

03 

ADC 

$0362 

9173- 

8 D 62 

03 

STA 

$0362 

9176- 

90 OB 


BCC 

$9183 

9178- 

EE 63 03 

INC 

$0363 

917B- 

AD 63 

03 

LDA 

$0363 

917E- 

DO 03 


BNE 

$9183 

9180 - 

EE 64 

03 

INC 

$0364 

9183- 

18 


CLC 


9184- 

AD 10 03 

LDA 

$0310 

9187- 

6 D 62 03 

ADC 

$0362 

918A- 

8 D 62 03 

STA 

$0362 

918D- 

90 OB 


BCC 

$919A 

918F- 

EE 63 

03 

INC 

$0363 

9192- 

AD 63 

03 

LDA 

$0363 

9195- 

DO 03 


BNE 

$919A 

9197- 

EE 64 

03 

INC 

$0364 

919A- 

18 


CLC 


919B- 

AD 11 

03 

LDA 

$0311 

919E- 

6 D 63 

03 

ADC 

$0363 

91A1- 

8 D 63 

03 

STA 

$0363 

91A4- 

90 03 


BCC 

$91A9 

91A6- 

EE 64 

03 

INC 

$0364 

91A9- 

60 


RTS 


91AA- 

18 


CLC 


91AB- 

AD OE 03 

LDA 

$030E 

91AE- 

6 D 65 

03 

ADC 

$0365 

91B1- 

8 D 65 

03 

STA 

$0365 

91B4- 

90 OB 


BCC 

$91C1 

91B6- 

EE 66 03 

INC 

$0366 

91B9- 

AD 66 03 

LDA 

$0366 

91BC- 

DO 03 


BNE 

$91C1 




91 

BE- 

EE 67 03 

INC 

$0367 

91 

C1- 

18 

CLC 


91 

C2- 

AD OF 03 

LDA 

$030F 

91 

C5- 

6 D 66 03 

ADC 

$0366 

91 

C8- 

8 D 66 03 

STA 

$0366 

91 

CB- 

90 OB 

BCC 

$91D8 

91 

CD- 

EE 67 03 

INC 

$0367 

91 

DO- 

AD 67 03 

LDA 

$0367 

91 

D3- 

DO 03 

BNE 

$91D8 

91 

D5- 

EE 68 03 

INC 

$0368 

91 

D8- 

18 

CLC 


91 

D9- 

AD 10 03 

LDA 

$0310 

91 

DC- 

6 D 66 03 

ADC 

$0366 

91 


© 66 03 

STA 

$0366 

91 

E2- 

90 OB 

BCC 

$91EF 

91 

E4- 

EE 67 03 

INC 

$0367 

91 

E7- 

AD 67 03 

LDA 

$0367 

91 

EA- 

DO 03 

BNE 

$91EF 

91 

EC- 

EE 68 03 

INC 

$0368 

3 


18 

CLC 


91 

FO- 

AD 11 03 

LDA 

$0311 

91 

F3- 

6 D 67 03 

ADC 

$0367 

91 

F6- 

8 D 67 03 

STA 

$0367 

91 

F9- 


BCC 

$91FE 

91FB- 

EE 68 03 

INC 

$0368 

91FE- 

60 

RTS 


91FF- 

EA 

NOP 


9200 - 

18 

CLC 


9201 - 

AD 69 03 

LDA 

$0369 

9204- 

6 D 03 03 

ADC 

$0303 

9207- 

8 D 69 03 

STA 

$0369 

920A- 

90 OB 

BCC 

$9217 

920C- 

EE 6A 03 

INC 

$036A 

920F- 

AD 6A 03 

LDA 

$036A 

9212 - 

DO 03 

BNE 

$9217 

9214- 

EE 6B 03 

INC 

$036B 

9217- 

18 

CLC 


9218 - 

AD 6A 03 

LDA 

$036A 

921B- 

6 D 04 03 

ADC 

$0304 

921E- 

6 A 03 

STA 

$036A 

9221- 

90 03 

BCC 

$9226 

9223- 

EE 6B 03 

INC 

$036B 

QC 



RTS 
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MAIN PROGRAM LISTING 


1 D$ = 


TMI 


2 ' 

3 

4 

5 

6 

7 

8 
9 

12 

15 

17 

19 

21 

23 

25 

27 

28 
29 
31 
33 
35 
37 
39 
41 
43 
90 


PRINT D$j”BLJ3AD R0W,D2" 

PRINT D$;”BLOAD COL” 

PRINT D$; "BLDAD CENTER" 

PRINT D$;"BLOAD ROW+INT" 

PRINT D$;"B1jOAD DATA,A$8410,D1" 

PRINT D$;”BLOAD CAMASM" 

GOSUB 6000 

DIM X1(4),Y1(4),E(4),S8(4),P2(4),UU(7,10) 

DIM M1(10),M2(10),M3(10),M4(10),M5(10),M6(10),Mr(10) 

REM **** MAIN MENU**** 

HOME : VTAB 3: HTAB 4: PRINT "WHAT WOULD YOU LIKE TO DO?" 
VTAB 6; HTAB 7: PRINT "(1) SETUP THE SYSTEM " 

PRINT "(2) UPDATE THE SYSTEM ” 

PRINT ”C3) RUN THE SYSTEM ” 

PRINT "(4) SETUP THE CALIBRATION" 

HTAB 31: GET I$:S = VAL (1$) 


HTAB 7: 
HTAB 7: 
HTAB 7: 
VTAB 3*. 
PRINT S 
IF S < 
HOME : 
IF S = 
IF S = 
IF S s 


1 OR S > 4 THEN GOTO 27 
IF S = 1 THEN GOSUB 3000 

2 THEN GOSUB 3500 

3 THEN GOSUB 4000 

4 THEN GOSUB 9000 

VTAB 20; HTAB 5: PRINT ” PRESS’RUTO RETURN TO MAIN MENU)” 

INPUT X$: IF X$ = ”R" THEN GOSUB 6000: GOTO 15 

END 

REM »**ROBOr IN ACTION****** 


100 H = 7.69:L = 7.0:LL = 3.5;PI = 3.14159 
110 C = 180 / PI:R1 = 1 

120 SI = 1125:S2 = S1;S3 = 672:S4 = 241;S5 = S4;S6 = 306 

130 U = 1 

131 FOR 10 = 1 TO OB:E(IO) = ABS (P2(I0) - SUM) / SUM: NEXT 10 

132 LEAST = E(1):IJ = 1 

133 IF OB = 1 THEN GOTO 139 

134 FOR 10 = 2 TO OB: 

135 IF E(IO) < LEAST THEN LEAST = ECIOrlJ = 10 

136 NEXT 10 

139 D$ = ”” 

140 PRINT D$;"PR#2" 

150 PRINT "gRESET" 

155 IP = 1 

160 X = M1(IP):Y = M2(IP):Z = M3(IP);P = M4(IP):R = M5(IP):JAW = M6(IP):S 
= M7(IP):IP = IP + 1 


180 GOSUB 1000 

190 W1 = INT (SI * T1):W2 = INT CS2 * T2):W3 = INT (S3 » T3):W4 = INT 
(S4 » T4):W5 = INT (S5 * T5) 

200 X = M1(IP):Y = M2(IP):Z = M3(IP):P = M4(IP):R = M5(IP);JAW = M6(IP):S 
= M7(IP):IP = IP + 1 
205 IF X = 100 THEN X = F1:Y = F2 
207 IF X = 200 THEN X = X1(IJ):Y = Y1(IJ):S = SI(IJ) 




208 IF JAW = 600 THEN JAW = JO(IJ) + 200 

210 IF X < - 100 GOTO 650 

220 GOSUB 1000 

230 Cl = im (SI * T1) - W1 

240 C2 = INT (S2 * T2) - W2:C3 = INT (S3 * T3) - W3:C4 = INT (S4 * T4) 
- W4:C5 = INT (S5 » T5) - W5 

250 W1 = W1 + C1:W2 = W2 + C2:W3 = W3 + C3:W4 = W4 + C4:W5 = W5 + C5 
260 PRINT »eSTEP",S,CV - C2,C3, - C4,C5 

265 U = U + 1:UU(1,U) = C1:UU(2,U) = - C2:UU(3,U) = C3:UU(4,U) = - C4:U 

U(5,U) = C5:UU(6,U) = JAW:UU(7,U) = S 

2T0 IF JAW < 0 THEN GOTO 300 

275 PRINT "eSTEP",S,0,0,0,0,0,JAW 

280 GOTO 200 

300 PRINT "eCL0SE",160 

310 PRINT "@STEP»',S,0,0,0,0,0,JAW 

320 GOTO 200 

500 FOR I = 2 TO U 

510 PRINT «eSTEP",UU(7,I),UU(1,I),UU(2,I),UU(3,I),UU(4,I),UU(5,I) 

520 IF UU(6,I) < 0 GOTO 560 

530 PRINT ”eSTEP”,ID(7,I),0,0,0,0,0,UU(6,I) 

540 GOTO 600 

560 PRINT "eciJ0SE",160 

570 PRINT "eSTEP",UUC7,I),0,0,0,0,0,UU(6,I) 

600 NEXT I 

650 HOME : PRINT "DO 70U WANT TO REPEAT THE SEQUENCE ?" 

660 INPLTT L$ 

670 IF L$ = *»YES" THEN GOTO 500 
680 RETURN 
700 END 

705 PRINT "AS SOON AS THE OBJECT IS IN THE CAMERA*S VIEW INPUT 0"; INPUT 
0 

707 HGR2 : TEXT 
710 CALL 32768 
715 CALL 34896 
720 CALL 34623 * - 

725 CALL 35840 

740 SUM = PEEK (830) + 256 * PEEK (831) 

750 PRINT "AREA =",SUM 

774 REM »»»*»ROUTINE FOR CENTROID CALC»* 

810 X2 = PEEK (778):Y2 = PEEK (779) 

845 PRINT D$;”OPEN TRANS" 

850 PRINT D$;"READ TRANS" 

855 INPUT Al: INPUT B1: INPUT A2: INPUT B2 
860 PRINT D$;"CLOSE TRANS" 

875 PRINT X2,y2 
880 FI = B1 + Al * X2 

885 F2 = B2 + Y2 / 50 

886 IF A2 = 1 THEN F2 = B2 - Y2 / 50 
890 PRINT F1,F2 

895 RETURN 

1000 P=P/C;R=R/C 
1010 RR = SQR (X » X + Y » Y) 

1020 IF RR < 2.25 THEN 1600 






1030 IF X = 0 THEN 1055 

1040 T1 = ATN (Y / X): GOTO 1060 

1055 T1 = SGN (Y) * PI / 2 

1060 IF X < 0 GOTO 1600 

1070 T4 = P + R + R1 * T1 

1080 T5 = P - R - R1 » T1 

1090 IF T4 < - 270 / C OR T4 > 270 / C THEN GOTO 1600 

1100 IF T5 < - 270 / C OR T5 > 270 / C THEN GOTO 1600 

1110 RO = RR - LL ♦ COS (P) 

1120 ZO s Z - LL * SIN (P) - H 
1130 IF RO < 2.25 GOTO 1600 
1140 IF RO = 0 THEN GOTO 1160 
1150 G = ATN (ZO / RO); GOTO 1162 
1160 G = SOi (ZO) * PI / 2 
1162 A = RO » RO + ZO ♦ ZO 
1164 A=:4»L»L/A-1 
1170 IF A < 0 THEN GOTO 1600 
1180 A = ATN ( SQR (A)) 

1190 T2 = A + G 
1200 T3 = G - A 

1210 IF T2 > 144 / C OR T2 < - 127 / C GOTO 1600 
1220 IF (T2 - T3) < 0 OR (T2 - T3) > 149 / C GOTO 1600 
1230 RETURN 

1600 PRINT OUT CF REACH****" 

1610 PRINT " AS THE X-Y COORDINATES CF THE DESTINATION ARE OUT OF REACH 
YOU WILL BE RETURNED TO MAIN MENU 
1620 FOR I = 1 TO 100: NEXT I 
1630 GOTO 15 

3000 REM ***SET UP ROUTINE**** 

3010 VTAB 2: HTAB 3: PRINT " YOU WANT TO CHOOSE FROM HOW MANY OBJECTS ?" 

3015 INPUT OB: 

3020 PRINT D$;"OPEN SETUP" 

3025 PRINT D$;"DELETE SETUP" 

3030 PRINT D$;"OPEN SETUP" 

3035 PRINT D$;"WRITE SETUP" 

3040 PRINT OB 

3045 PRINT D$;"CLOSE SETUP" 

3050 FOR 10 = 1 TO OB: GOSUB 3100: NEXT 10 
3060 RETURN 

3100 REM •**» STORE DATA IN TEXTFILE*** 

3105 HOME : PRINT "PLACE THE OBJECT NO",10,"IN THE VIEW OF THE CAMERA" 
3110 GOSUB 705 

3115 PRINT "INPUT THE X-Y COORDINATES OF THE lESTINATION OF THE OBJECT" 
3120 INPUT XI(10),Y1(10) 

3125 PRINT "INPUT THE SPEED" 

3130 INPUT S8(I0) 

3135 JO(IO) = 200 + SUM / 6 

3136 IF JO(10) > 600 THEN JO(10) = 600 
3140 PRINT D$;"APPEND SETUP" 

3145 PRINT D$;"WRITE SETUP" 

3150 PRINT XI (10): PRINT YKIO): PRINT JO(IO): PRINT S8(I0): PRINT SUM 
3155 PRINT D$;"CLOSE SETUP" 

3160 RETURN 
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3500 REM ****»UPDATING*»*»»»* 

3505 PRINT "HOW MANY OBJECTS YOU WANT TO ADD TO THE SYSTEM ?" 

3507 INPUT ADD 

3510 PRINT D$;"OPEN SETUP” 

3515 PRINT D$j"POSITION SETUP,RO” 

3520 PRINT D$;”READ SETUP” 

3525 INPUT OB 

3530 PRINT D$;"CLOSE SETUP" 

3535 OS = OB + ADD 

3540 PRINT D$;"OPEN SETUP" 

3545 PRINT D$;"POSITION SETUP,RO " 

3550 PRINT D$;"WRITE SETUP” 

3555 PRINT OS 

3560 PRINT D$;"CLOSE SETUP" 

3565 FOR 10 = OB + 1 TO OS; GOSUB 3100: NEXT 10 
3570 RETURN 

4000 REM **** EXECUTION******* 

4010 PRINT D$;"OPEN SETUP" 

4020 PRINT D$;"READ SETUP” 

4025 INPUT OB 

4030 FOR 10 = 1 TO OB: INPUT XUIO): INPUT YUIO): INPUT JO(IO): INPUT S 
8(10): INPUT P2(I0): NEXT 10 

4031 PRINT D$;"CLOSE SETUP" 

4032 IF HO = 0 THEN GOSUB 7500 

4035 GOSUB 705 

4045 GOSUB 90 

4050 RETURN 

5600 REM *** CALC FARMS *»* 

5610 LET RC = AR * (3 - SE) * 128 

5612 RH = INT (RC / 256):RL = RC - (RH * 256) 

561-4 POKE 777,RL: POKE 778,RH 

5630 LET CB = INT (PW * (3 - SE) * 128 / 7) + 1 

5640 IF CB = 74 THEN CB = 73 

5650 LET CU = CB 

5660 IF CU > 40 THEN CU = 40 

5670 POKE 776,CB 

5680 POKE 780,CU 

5690 LET TB = CB * RC / 2 

5692 LET EX = 0 

5700 LET ST = 100 * TB / BA 

5705 EP = (256 * CU) + (RC / 2): REM EPSON FARMS 

5710 LET CM = 192 

5720 IF SE = 1 THEN CM = CM + 32 

5730 IF PW = 1 THEN CM = CM + 16 

5740 IF AR = 2 THEN CM = CM + 4 

5750 LET EX s 1 

5760 IF ( NOT FE) OR RE OR ST > ET THEN SK = ET: GOTO 5810 

5770 IF ET = 0 THEN SK = 0: GOTO 5790 

5780 LET SK = ET - ST 

5800 LET CM = CM + 2 

5810 LET I = INT (SK / 256): POKE 770,1 

5820 LET I = SK - (I * 256): POKE 769,1 + 100 
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5825 POKE 768,CM: POKE 779,EX 
5827 POKE 779,0 
5830 RETURN 

6000 REM *** RECALL SETUP 
6010 ONERR GOTO 6100 
6015 D$ = ”” 

6020 PRINT D$;»OPEN EYEPARMS” 

6030 PRINT D$j”READ EYEPARMS" 

6040 INRIT ET: INPUT BA: INPUT SL 

6041 INPUT AR: INPUT SE: INPUT PW 

6042 INPUT IL: INPUT LM: INPUT FE 

6043 INPUT RE 

6050 PRINT D$;"CLOSE EYEPARMS" 

6060 LET SU = 1 
6070 POKE 771,16 * SL 
6080 LET FT = 0 

6090 GOSUB 5600: REM CALCPARMS 
6092 POKE 33792,200: POKE 216,0 
6095 RETURN 

6999 D$ = "" 

7000 PRINT D$;"OPEN X-Y" 

7010 PRINT D$;"DELETE X-Y" 

7020 PRINT D$;"OPEN X-Y" 

7021 II = 1: DIM GU20),G2(20),G3(20),G4(20),G5C20),G6(20),G7(20) 

7022 PRINT "INPUT THE ",II,"POSITION CF THE ROBOT" 

7024 PRINT "INPUT 0 FOR THE X AFTER THE LAST POSITION" 

7026 PRINT "INPUT X,Y,Z,PITCH,ROLL,JAW,SPEED" 

7028 INPUT G1(II),G2(II),G3(II),G4(II),G5(II),G6(II),G7(II) 

7029 IF GUII) = 0 THEN GOTO 7090 

7031 II = II + 1 

7032 GOTO 7022 

7090 PRINT D$; "WRITE X-Y" 

7092 lU = II - 1: PRINT lU 

7095 FOR IX = 1 TO II - 1: PRINT Gl(IX): PRINT G2CIX): PRINT G3(IX): PRINT 
G4(IX): PRINT G5(IX): PRINT G6(IX): PRINT G7(IX) 

7100 NEXT IX 

7110 PRINT D$; "CLOSE X-Y" 

7120 END 

7500 REM LOAD THE COORDINATE DATA 
7510 PRINT D$;"OPEN X-Y" 

7520 PRINT D$;"READ X-Y" 

7530 INPUT lU 

7540 FOR 18 s 1 TO lU: INPUT M1(I8): INPUT M2(I8): INPUT M3CI8): INPUT M 
4(18): INPUT M5(I8): INPUT M6(I8): INPUT M7(I8): NEXT 18 
7550 PRINT D$;"CIX)SE X-Y" 

7555 HO = 1 
7560 RETURN 

9000 PRINT "INPUT THE X-Y COORDINATES (F THE TABLE" 

9003 INPUT T1,T3 

9004 PRINT T3 

9005 CALL 32768: CALL 34896 

9006 CAa 34623: CAa 35840 

9007 SI = PEEK (778):S3 = PEEK (779) 



9008 PRINT "INPUT THE X&Y COORDINATES OF THE TABLE 
9010 INPUT T2,T4 

9012 CALL 32768: CALL 34896 

9013 CALL 34623: CALL 35840 

9014 S2 = PEEK (778):S4 = PEEK (779): HGR2 : lEXT 

9015 PRINT S1: PRINT S2: PRINT S3: PRINT S4 
9020 A1 = (T1 - T2) / (SI - S2):B1 = T1 - A1 » SI 
9023 A2 = 1 

9025 IF (S3 - S4) > 0 AND (T3 - T4) > 0 THEN A2 = ( 

9030 B2 = T3 + S3 / 50 

9031 PRINT A1,B1,A2,B2,T3,S3 

9032 PRINT D$;”OPEN TRANS" 

9033 PRINT D$;"DELETE TRANS" 

9035 PRINT D$;"OPEN TRANS" 

9037 PRINT D$;"WRITE TRANS" 

9038 PRINT A1: PRINT B1: PRINT A2: PRINT B2 

9039 PRINT D$;"CLOSE TRANS" 

9040 RETURN 




